limitar comando DO WHILE

[kikoehu]

Olá a todos(de novo);
tenho um código para apagar uma linha acima pelo comando do while. porem ela quando usada não tem um limitador que pare no cabeçalho do formulário, e acaba apagando as linha que devem permanecer nele, alguém pode me ajudar? Segue código:
im w As Worksheet
Dim ultcel As Range
Dim Resultado As Long



Set w = Sheets("planilha1")
w.Select
Set ultcel = w.Range("a45").End(xlUp)
ultcel.Select
Do While ActiveCell.Row >= 37

ActiveCell.Offset(-1, 0).Select
Loop


ultcel.Value = ""

MsgBox "Linha apagada com sucesso", vbInformation, "Aviso"