Guru do Excel e Power BI

Sub inserirlinha()

 'Cria variáveis


    'Variável para percorrer a planilha

    Dim casa As Object

    'Variável para encontrar a última célula preenchida

    Dim ultimacelula


'Impede que o usuário visualize o processo sendo executado

Application.ScreenUpdating = False


'Atribui o valor da última célula preenchida

ultimacelula = Range("A1000000").End(xlUp).Address

 
    'Percorre a planilha

    For Each casa In Range("A1:" & ultimacelula)

         'Se encontrar uma célula preechida, onde a célula abaixo também esteja preechida

        If casa <> "" And casa.Offset(1, 0) <>  "" Then

        'Então insere uma linha entre elas

        casa.Offset(1, 0).EntireRow.Insert
        casa.Offset(1, 0).EntireRow.Insert
  

        'Finaliza o If

        End If

     'Vai para a proxima célula

    Next

 'Seleciona a célula A1

Range("A1").Select
End Sub