Experimente utilzar o codigo assim:

Sub Macro1()
lin = ActiveCell.SpecialCells(xlLastCell).Row
Rows(lin + 1 & ":1048576").Select
Selection.Delete Shift:=xlUp
 Range("A1").Select
End Sub

Bom dia Reinaldo,

o que fez funciona na planilha que enviei, mas na planilha que é pra funcionar mesmo, que é a que envio em anexo, não funciona.

Observe que se clicar em Crtl+end ela vai para a última célula (AB63225)

Esse lixo que desejo limpar e não sei o que é...

Então altere o modo de "pegar" a linha

Sub Botão1_Clique()
        lin = Cells(Cells.Rows.Count, "A").End(xlUp).Row
                                   'lin = ActiveCell.SpecialCells(xlLastCell).Row
        Rows(lin + 1 & ":1048576").Select
        Selection.Delete Shift:=xlUp
        Range("A1").Select
End Sub

AAhhhhhh!!!

Continua sem funcionar!!

Pra saber se deu certo clica em Crtl+End que ela não pode ir para a célula (AB63225)

Então deve ser limpo tb as colunas; Veja o que diz o grande JLM (ExcelBR)

RES: [ExcelBr] ultima celula preenchida

Quando o Ctrl+End não para na última célula da tabela, é porque alguém escreveu além do intervalo da mesma e depois apagou.

Esta ou estas células cujos dados foram apagados, são chamadas de células fantasma.

Ou seja, não existem valores lá, mas o Excel considera como parte dos dados.

Para eliminar as células fantasmas, selecione as linhas e/ou colunas em branco e exclua-as.

Em seguida, salve a pasta de trabalho.

Agora teste o Ctrl+End e verás que ele funciona.

[ ]’s fantasmagóricos )

JLM
Santo André – SP

Sub Botão1_Clique()
Dim lastColum As Integer, Lin As Long
    lastColum = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    Columns(lastColum + 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete
    Lin = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    Rows(Lin + 1 & ":1048576").Select
    Selection.Delete 'Shift:=xlUp
    Range("A1").Select
End Sub

É isso mesmo, mas continua sem funcionar!

Testei o codigo acima (modificado) no modelo que enviou e aqui funcionou.
Após "rodar" o codigo e teclar Ctrl+End vai para AB9

Grande Reinaldo! Você está correto amigo!

A questão é que só funciona depois de salvar. Depois que executamos a rotina, e não salvamos ela se comporta da mesma forma. Mas quando salvamos depois de rodar a rotina, ai meu amigo!, funciona!!

Mistérios da Microsoft!

Parabéns!!