Olá Pessoal,

Quem nunca precisou excluir centenas de linhas em branco? Ou até mesmo aquelas linhas indesejadas que temos que excluir na mão, uma a uma?

O código abaixo exclui as linhas em branco e também qualquer linha que tenha uma célula com o texto "excluir", essa palavra você pode adequar à sua necessidade também, assim como "PLAN1".

Sub tratar()

Sheets("PLAN1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("a" & ActiveCell.Row + 1).Value = "fim de arquivo"
Range("a2").Select
Do While ActiveCell.Value <> "fim de arquivo"
If ActiveCell.Value = "" or application.worksheetfunction.countif(activecell.entirerow,"excluir")>0Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If

Loop

End Sub

Créditos: Fernando Fernandes - Comunidade Microsoft Excel - ORKUT