Hola timoteo666:
Aqui te paso el codigo para que realices lo que deseas.
Pasos:
-Abre archivo de excel
-Presiona Alt+F11
-Crea un modulo
-Pega esto
Código vb:
Ver originalOption Explicit
Sub Agregar_Linea()
Dim NumRow As Integer
Dim i As Integer
Application.ScreenUpdating = False
NumRow = Range("A1", Range("A1").End(xlDown)).Count
For i = 1 To (NumRow * 2)
If i Mod 2 Then
Else
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown
End If
Next i
Application.ScreenUpdating = True
End Sub
Espero que te sirva. Saludos