|You can shorten you manual method by selecting 5 rows at a time, right-clicking and choosing Insert. This will insert 5 rows at once.|
To make it automatic, you can try this code:
It assumes that you have data in Column A and that each row has data in it.
Dim nxtRw, insRws As Integer
'Set first insertion row
nxtRw = 2
'Get number of rows from user
insRws = Application.InputBox("How many rows do you want to insert?", _
"Input Rows", Type:=1)
'Quit if Cancelled
If insRws = False Then Exit Sub
Do While Range("A" & nxtRw) <> ""
Rows(nxtRw & ":" & nxtRw + insRws - 1).Insert Shift:=xlDown
nxtRw = nxtRw + insRws + 1
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.