Inserting Rows

[Guest]

I have a spreadsheet with about 1,000 rows of customer contacts. I need to
insert 4 blank rows between each record for more information (End up being
5,000 rows total). Is there a way to do this automatically without having to
insert row after row in between each record?

 

[Ron de Bruin]

Hi GOL

Try this one

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim rng As Range
numRows = 4
Set rng = ActiveSheet.UsedRange
For R = rng.Rows.Count To 1 Step -1
rng.Rows(R + 1).Resize(numRows).EntireRow.insert
Next R
Application.ScreenUpdating = True
End Sub

 

[Guest]

THANKS!!!!!!

Hi GOL

Try this one

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim rng As Range
numRows = 4
Set rng = ActiveSheet.UsedRange
For R = rng.Rows.Count To 1 Step -1
rng.Rows(R + 1).Resize(numRows).EntireRow.insert
Next R
Application.ScreenUpdating = True
End Sub