Option Explicit
Sub report()
Dim StartzeileQuelle As Long, EndzeileQuelle As Long, EinfügezeileZiel As Long
Dim Spalte As Variant, Zaehler As Variant
Dim Quelle As Worksheet, Ziel As Worksheet
StartzeileQuelle = 11
EinfügezeileZiel = 5
Set Quelle = ThisWorkbook.Worksheets("Tabelle2")
Set Ziel = ThisWorkbook.Worksheets("Tabelle1")
Zaehler = Array(2, 5, 6)
For Each Spalte In Zaehler
With Quelle
EndzeileQuelle = .Cells(.Rows.Count, Spalte).End(xlUp).Row
.Range(.Cells(StartzeileQuelle, Spalte), .Cells(EndzeileQuelle, Spalte)).Copy _
Ziel.Cells(EinfügezeileZiel, Spalte)
End With
Next Spalte
Set Quelle = Nothing: Set Ziel = Nothing
End Sub