Have the below which basically works, just not sure how to add the
quoted text I listed in my original post into each line:

Sub test()
InsertSpaceRow ActiveSheet, 3, 10
End Sub


'takes a sheet , a start row number and an end row number
Sub InsertSpaceRow(Wsh As Worksheet, rowStart As Long, rowEnd As Long)
Dim i As Long


Application.ScreenUpdating = False
For i = rowEnd To rowStart Step -1
Wsh.Range(i & ":" & i).EntireRow.Insert
Next
End Sub