Schleife- lauf begrenzen

ich habe von einem forumprofi eine gut funktionierende schleife bekommen.ich will,dass die schleife in der ersten freien zeile aktiv ist.der aktuelle stand verlangsamt die ganze aktion.

Public Sub DoubleCopy()
Dim Rows As Integer


' Range("AT65536").End(xlUp).Offset(1, 0).Activate
'ActiveCell.End(xlUp).Offset(0, 1).Activate

For Rows = 4 To 54

Cells(Rows, 47) = Cells(Rows, 12).Value
Cells(Rows, 48) = Cells(Rows, 14).Value
Cells(Rows, 49) = Cells(Rows, 16).Value
Cells(Rows, 50) = Cells(Rows, 18).Value
Cells(Rows, 51) = Cells(Rows, 20).Value
Cells(Rows, 52) = Cells(Rows, 22).Value
Cells(Rows, 53) = Cells(Rows, 24).Value
Cells(Rows, 54) = Cells(Rows, 26).Value
Cells(Rows, 55) = Cells(Rows, 28).Value
Cells(Rows, 56) = Cells(Rows, 30).Value
Cells(Rows, 57) = Cells(Rows, 32).Value
Cells(Rows, 58) = Cells(Rows, 34).Value
Cells(Rows, 59) = Cells(Rows, 36).Value
Cells(Rows, 60) = Cells(Rows, 38).Value
Cells(Rows, 61) = Cells(Rows, 40).Value
Cells(Rows, 62) = Cells(Rows, 42).Value
Cells(Rows, 63) = Cells(Rows, 44).Value
Cells(Rows, 64) = Cells(Rows, 46).Value


Next
'Range("J63").Activate
End Sub

marc