Como posso limpar o Active Row usando o VBA?

Eu tenho uma macro que limpa o conteúdo do intervalo selecionado em uma planilha e, em seguida, desloca as células inferiores. Gostaria de saber se existe uma maneira de evitar selecionar o intervalo e limpar o ActiveRow até a coluna $GZ. Aqui está a minha macro:

Sub deleteRows()
Application.ScreenUpdating = False

For i = 1 To 1000
Selection.ClearContents

Selection = Selection.Offset(1, 0).Value
Selection.Offset(1, 0).Select
If IsEmpty(Selection.Cells(1, 1).Value) = True Then Exit For

Next i
Application.ScreenUpdating = True
End Sub