Hallo Melissa,

so:

Public Sub CopyRegion()
    Dim rngTarget As Range
    Dim rngSource As Range
    Dim i As Long
    Dim arr(): arr = Array("A2:I18", "L2:O18", "C7", "C17")
   
    ' Clear region
    Tabelle1.Range("C5:S38").Clear
    For i = 0 To 1
        ' Copy data
        Set rngSource = Tabelle2.Range(arr(i))
        Set rngTarget = Tabelle1.Range(arr(i + 2))
   
        rngSource.Copy
        rngTarget.PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
        Application.CutCopyMode = False
    Next i
End Sub

Gruß Uwe