Código VBA - Excluir Linha Em Branco

Option Explicit

Sub Delete_Linhas_Branco()

    Dim Contador As Variant

    Dim i As Integer

   

    ' Input box Determina o total de linhas de processo

   

    Contador = InputBox("Digite o número total de linhas de processo")

    ActiveCell.Select

   

    Sheets(1).Select                                'Verificar a Posição da Planilha

    Range("B14").Select                             'Troque a referencia de onde irá começar a verificação dos dados

       

        ' Loops através do número desejado de linhas

    For i = 1 To Contador

       

        ' Verifica se a célula ativa está em branco.

        If ActiveCell = Empty Then

            Selection.EntireRow.Delete

        ' Diminui a contagem cada vez que uma linha for excluída. Isto assegura que a macro não será executado após a última linha

            Counter = Contador - 1

        Else

       

        ' Seleciona a próxima célula.

       

        ActiveCell.Offset(1, 0).Select

       

        End If

    Next i

   

    Range("B14").Select

    'Selection.Delete Shift:=xlUp

   

End Sub