Cole este código num módulo e troque o nome Plan1 para o nome da sua planilha.
O código precisa estar no mesmo arquivo da planilha a ter linhas removidas.

Sub ExcluirLinhas()
Dim Planilha    As Worksheet
Dim Linha       As Long

    Set Planilha = ThisWorkbook.Worksheets("plan1")
    With Planilha
        For Linha = .UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
            With .Range("A" & Linha)
                If .Value = vbNullString Then
                    .EntireRow.Delete Shift:=xlUp
                End If
            End With
        Next Linha
    End With
    Set Planilha = Nothing

End Sub

Muito Obrigado Fernando, consegui adaptar junto a outros códigos, agora o tratamento de dados ficou perfeito.