How do I insert a row or rows between each row of text and copy the row above?
 

I have been using this macro to insert rows depending on how many I need.

When I need more rows interested I just change the number by numRows=

I would like to know how I can copy the row above to the new inserted row. I would like to do this for large amounts of data. As of now I just do this manually and it can be very time consuming.

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
numRows = 1
For r = 265 To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).EntireRow.Insert
Next r
Application.ScreenUpdating = True
End Sub