Guten Morgen,

ich habe das jetzt folgendermaßen umgesetzt, aber jetzt wird nur die zweite Tabelle kopiert, also ("L2:O18"). Wo habe ich denn hier den Fehler gemacht?

Public Sub CopyRegion()
  Dim rngTarget As Range
  Dim rngSource As Range
   
  ' Clear region
  Tabelle1.Range("C5:S38").Clear
   
  ' Copy data
  Set rngSource = Tabelle2.Range("A2:I18")
  Set rngTarget = Tabelle1.Range("C7")
  
  Set rngSource = Tabelle2.Range("L2:O18")
  Set rngTarget = Tabelle1.Range("C17")
  
  rngSource.Copy
  rngTarget.PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
  Application.CutCopyMode = False