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?

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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"GOL" wrote in message ...
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?

THANKS!!!!!!

"Ron de Bruin" wrote:

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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"GOL" wrote in message ...
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?