Zeilen ins spalten mit VBA

Sub test()
Dim myLastRow As Long
Dim myFirstFreeRow As Long
Dim myRow As Long
Dim myMaximum As Long
Dim myCount As Long
With Sheets("Table")
' letzte gefüllte Zeile in Table Spalte I ermitteln
myLastRow = .Cells(Rows.Count, 9).End(xlUp).Row
' Schleife für alle Einträge in Table Spalte I
For myRow = 16 To myLastRow
' Anzahl Durchläufe
myMaximum = 2
' Schleife für die Anzahl
For myCount = 1 To myMaximum
' erst noch die erste freie Zeile in Tabelle1 Spalte B ermitteln
With Sheets("Tabelle1")
myFirstFreeRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
End With
For i = 1 To 2
' Wert von Table Spalte E nach Tabelle2 Spalte E übertragen
Sheets("Tabelle1").Cells(myFirstFreeRow, 2).Value = .Cells(myRow, 9).   _
_
_
_
_
Value
Sheets("Tabelle1").Cells(myFirstFreeRow, 2 + i).Value = .Cells(myRow,   _
_
_
_
_
9 + i).Value
Next i
Next myCount
Next myRow
End With
End Sub