Pessoal, estou com uma dúvida.Eu tenho o código que analiza se na celula A de detrminada linha estiver nada escrito, ela deleta a linha.O problema é que ela não faz para toda ao mesmo tempo (exemplo: se eu tenho cinco linhas em branco eu tenho
que mandar executar a macro 5 vezes).
Eu precisava executar somente uma vez e excluir todas as linhas cuja célula A estiver em branco.
Segue o meu código:
Sub Deleta_linha()
Dim MyCell As Range
For Each MyCell In Sheets(1).Range("A:A").SpecialCells(xlCellTypeBlanks)
If MyCell.Row > 4 Then
MyCell.EntireRow.Delete Shift:=xlUp
End If
Next MyCell
End Sub
Obrigado!