Macros útiles:

 

Insertar Filas entre filas:

Sub InsertarFilas()

    

    Do While Not IsEmpty(ActiveCell)

        ActiveCell.EntireRow.Insert

        ActiveCell.Offset(2, 0).Select

    Loop

    

End Sub