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...