Wo liegt der Fehler?

Hallo

ich komme mit dem Makro nicht weiter!
Der erste Zellbreich True wird richtig kopiert. Dann steigt da sMakro aus und sagt Objekt definieren!!

Voran liegt es?
und warum wird nicht ab A6 durchnummeriert?

Zitat:
Sub Auswahlt()

Dim zeile As Long, letzte As Long
For zeile = 6 To 31
If Cells(zeile, 17).Value = True Then
If Sheets(Auswahl).Range(A65536).End(xlUp).Row = 5 Then
Range(Cells(zeile, 2), Cells(zeile, 14)).Copy.Sheets(Auswahl).Range (B6)
Sheets(Auswahl).Range(A6).Value = 1
Else
Range(Cells(zeile, 2), Cells(zeile, 14)).Copy Sheets(Auswahl).Range(B65536).End(xlUp).Offset(5, 0)
letzte = Sheets(Auswahl).Range(A65536).End(xlUp).Row.Paste
Sheets(Auswahl).Range(A & letzte + 1).Value = Sheets(Auswahl).Range(A & letzte).Value + 1
End If
End If
Next zeile
End Sub


Private Sub CommandButton1_Click()

Call Auswahlt
End Sub




Danke für eure Hilfe!

danke hat sich erledigt!

Cu bis zum nächsten mal mml