Insert Multiple Rows

[ucf1020]

I am working with a spreadsheet that has about 1000 rows of data in it. I need to insert 14 rows between each current record. I know this can be done using a numbering system and then sorting the page, but I am having trouble getting excel to recognize the counting pattern. Any help would be great.

[swatsp0p]

Edited to meet your needs; originally from Ron de Bruin:

Try this one

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim rng As Range
numRows = 14
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

[ucf1020]

Thanks for the help. That worked great.

[swatsp0p]

Ron did the work. I just pointed you his way...

Glad it worked for you!

Cheers.