Loop

Good afternoon. Can someone show me how to make this macro loop until it gets to A75000?

Thanks in advance

Sub FINAL()
'
' FINAL Macro
'
' Keyboard Shortcut: Ctrl+d
'

Range("A3:D23").Select
Selection.Copy
Range("A2").Select

Range("A1").End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
End Sub