Nos ja temos essa dica aki na mesma seção.....

segue o link
viewtopic.php?f=28&t=146

se for isso mesmo...de um tok pra depois podermos apagar o topico repetido!!!

Caro Leo, obrigado pelas informações, mas este não é o meu caso, o meu problema esta em eliminar linhas da planilha, compactando-a, isto é, desfragmentando, deixando-a enxuta, conforme a rotina postada por Nasario,nesta seção.

tem como mandar um modelo da plan?

Glaucir,

Abre o VBE, ALT + F11

Vai no menu inserir e clique na opção módulo.

Cole o código abaixo.

Esse código apaga as linhas em branco e também qualquer linha inteira que contenha na célula a palavra "excluir"

Sub tratar()
Sheets("PLAN1").Select 'Entre aspas você coloca o nome da planilha
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 'eu coloquei a palavra excluir, mas você pode alterar para qualquer uma.
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If

Loop

End Sub