Inserting multiple rows between every row of one column/range

[MrNotSoExcellent]

I'm looking for help to write a code that allows me to insert a certain amount of rows into a specific range of cells. The code I'm using (I found somewhere while scouring the internet) is the following:

Sub InsertARow()
Dim j As Long
Dim r As Range
j = 5
Set r = Range("A1")
Do While r.Value <> ""
    Set r = r.Offset(1, 0)
    For i = 1 To j
        r.Rows.Insert
    Next
Loop

End Sub

The code works fine when I only need to add say 5 rows but it takes forever to run when I want to insert 60 rows. Does anyone have a solution or just a 'better' code to do this?

Thanks so much!

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub MrNotSo()
   Dim i As Long, j As Long
   
   j = 5
   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      Rows(i + 1).Resize(j).Insert
   Next i
End Sub