Com um pequeno ajuste em uma rotina postada pelo colega Edson você pode utilizar esta :
Excluir a célula em branco e organizar os dados [Resolvido]
viewtopic.php?f=10&t=5643&hilit=while

Sub Deleta_Cells()
    Dim ULinha, i
    
    ULinha = Range("A65536").End(xlUp).Row
    i = 2
    
    Do While i <= ULinha
        
        If Cells(i, 2) = 0 Or Cells(i, 2) = "" Then
            Range("A" & i & ":" & "D" & i).Delete Shift:=xlUp
      
            i = i - 1
            ULinha = ULinha - 1
        End If
        
        i = i + 1
    Loop

End Sub

[]s

Perfeito Mauro!
Era isso que eu precisava.
Só mais uma coisa:
É possível atualizar essa tabela apenas clicando na aba da planilha que contém tal tabela?
De qualquer modo,
Muito obrigado Mauro!

Utilize os Eventos das Abas :

Para o caso de executar só quando ativar a aba use :

Private Sub Worksheet_Activate()
    Dim ULinha, i
    
    ULinha = Range("A65536").End(xlUp).Row
    i = 2
    
    Do While i <= ULinha
        
        If Cells(i, 2) = 0 Or Cells(i, 2) = "" Then
            Range("A" & i & ":" & "D" & i).Delete Shift:=xlUp
      
            i = i - 1
            ULinha = ULinha - 1
        End If
        
        i = i + 1
    Loop

End Sub

Lembrando este código tem de colocar na Declaração da Aba, no editor do VBA de dois cliques na aba que pretende e cole esta rotina.

[]s

Exatamente isso que eu precisava.
Perfeito!
Muito obrigado Mauro.
Grande abraço.

Boa tarde ttt

Faltou você clicar na mãozinha para agradecer ao Mauro e dar o tópico como resolvido.

Veja no link como proceder:

viewtopic.php?f=7&t=3784

Um abraço.