Fehler: Ungültige Verweis auf Next-Steuervariable

Sub t()
Dim zeile As Long
Dim spalte As Integer
Dim lZeile As Integer 'erste leere Zeile in Tabelle2
Dim TB2 As Worksheet
Set TB2 = Worksheets("Tabelle2")
Application.CutCopyMode = True
With ActiveSheet
zeile = .Range("A65536").End(xlUp).Row
For spalte = 2 To 17 Step 4
For lZeile = 1 To TB2.Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(4, spalte), .Cells(zeile, spalte + 3)).Copy _
TB2.Range("A" & lZeile).PasteSpecial Paste:=xlAll, Operation:=
xlNone, SkipBlanks:=False _
, Transpose:=True
Next spalte
Next lZeile
End With
Application.CutCopyMode = False
End Sub