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"
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E