VBA kullanarak Aktif Satırı nasıl temizleyebilirim?

Bir çalışma sayfasında seçilen aralığın içeriğini temizleyen bir makroya sahibim, daha sonra alt hücreleri yukarı kaydırıyor. Aralığın seçilmesinden ve ActiveRow'u Sütuna kadar silmekten kaçınmanın bir yolu olup olmadığını merak ediyorum $GZ. İşte makrom:

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