Insert Multiple Rows

U

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.
 
S

swatsp0p

Edited said:
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
Click to expand...
 
S

swatsp0p

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

Glad it worked for you!

Cheers.
 
Top