Macro para insertar fila automáticamente

Con el siguiente código vas a poder ingresar las filas que quieras... cuando ejecutas la macro te aparece una ventana de dialogo preguntándote cuantas filas deseas insertar, escribes el numero de filas que quieras insertar y todos felices!

Sub InsertarFilas()
    Dim numFilas As Long
    'Preguntar al usuario por el número de filas a insertar
    numFilas = Application.InputBox(Prompt:="Filas a insertar:", Type:=1)
    'Validar si el número de filas indicado es superior a cero
    If numFilas > 0 Then
        'Insertar filas
        Rows(ActiveCell.Row & ":" & ActiveCell.Row + numFilas - 1).Insert
    End If
End Sub

Saludos! No se te olvide valorar la respuesta...