Как очистить Active Row с помощью VBA?

Question

У меня есть макрос, который очищает содержимое выбранного диапазона на листе, а затем сдвигает нижние ячейки вверх. Мне интересно, есть ли способ избежать выбора диапазона и очистки ActiveRow до столбца $GZ . Вот мой макрос:

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