Looping a macro

Hello, i was wondering how i would loop this macro (and others like it) all the way down to cell 66500 or what ever the last one is.

Here is my macro

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows(n + 5).Select
    Selection.ClearContents
Loop 
End Sub

Thanks.