Syntax in VBA-Modul ist falsch

Sub Makro1()
Dim z As Long
For z = 10000 To 255 Step -1
If Application.CountA(Range(Cells(z, 2), Cells(z, 56))) > 0 Then Exit For
Next
Rows("2:2").Select
Selection.Copy
'z = 3560
'Wie kann ich 3560 mit z ersetzten?
Rows("3:3560").Select
'Rows("3:z").Select funktioniert nicht!
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
End Sub

Kann mir jemand auf die Sprünge helfen?
Gruß
Wilfried