Experimente assim e veja se atende>

Sub Elvazio()
Sheets("PLAN1").Select
lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = lastRow To 1 Step -1
    Range("a" & x).Select
    If ActiveCell.Value = "" Then
        Selection.EntireRow.Delete
    End If
Next
End Sub

Reinaldo, eu ia comentar as postagem, mas acredito que com este seu ultimo código resolverá.

O que eu iria comentar é referente o uso dos Selection nas rotinas anteriores, por exemplo se utilizarmos a instrução :
Supondo que a celula selecionada é "A1", e tenho alguns dados em Linhas diferentes terminando em "A79", então utilizando a instrução :

Selection.SpecialCells(xlCellTypeBlanks).Select

Será selecionada todas as Linhas em Branco até "A78", mas se eu DELETAR (APAGAR) o valor que se encontra em "A79", selecionar "A1" e executar a rotina novamente, será selecionado as mesmas celulas como se em "A79" ainda tivesse algum valor, isto pelo fato que não limpou-se a celula com a opção "Limpar/Tudo", e o excel entende que ainda temos dados nesta celula.

Só para complementar, Tira, de uma olhada no tópico abaxio :
Como Fazer: Macro para excluir Linhas
viewtopic.php?f=10&t=2443&p=10705&hilit=yahoo#p10705

É um pouco diferente do que está pretendendo mas pode ajudar a entender melhor algumas rotinas.

Tira, como voce pode perceber existem varias alternativas para se fazer o que pretende, diferenciando umas e outras dependendo de como estão dispostos nossos dados, por isso que as vezes necessitamos no modelo em questão para poder-se avaliar melhor, como disse que é um arquivo da empresa, quando possível pode-se alterar os dados para alguns ficticios, então se as dicas acima não resolverem, pense nesta possibilidade, sei que são muitos dados, mas facilitaria.

[]s

Tira,

Bom dia!

Use isto:

Sub DeletarLinhas()
ultima = Cells(Rows.Count, "A").End(xlUp).Row 'Modifique aqui de qual coluna quer localizar a última linha prrenchida

For i = ultima To 1 Step -1
If Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next i

Segue o mesmo modelo da de Reinaldo.

Em anexo também estou encaminhando um planilha modelo.

Sinaliza se conseguiu lhe atender.
End Sub

Caros,

O código passado pelo REINALDO resolveu meu problema , deu tudo certo agora.

Mauro Coutinho,
Vou dar uma olhada no seu material com calma! Obrigado!

luiz elias,
Valeu, arquivei o seu modelo para caso venha a dar outro erro futuramente!

Esse é o MAIOR E MELHOR FÓRUM de excel de toda a Internet, incrível as pessoas dedicarem um minuto do seu corrido tempo para ajudar a quem tenha alguma dificuldade, clicar na mãozinha é muito pouco para agradecer a ajuda que ganhamos aqui.
Muito obrigado meeeesmo!

Alexandre,

Esqueci de te agradecer, muito obrigado pela sua ajuda também !