Inserting a Row Every "X" Rows

J

JMS

Does anyone know how you might go about inserting a extra row inbetween rows at certain intervals. For instance, auto insert of rows every 3rd row, etc.
 
R

Ron de Bruin

One way

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


JMS said:
Does anyone know how you might go about inserting a extra row inbetween rows at certain intervals. For instance, auto insert of
Click to expand...
rows every 3rd row, etc.
 
R

Ron de Bruin

I misunderstood

Try this

Sub test2()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
numRows = 1
For R = 300 To 1 Step -3
ActiveSheet.Rows(R + 1).Resize(numRows).EntireRow.insert
Next R
Application.ScreenUpdating = True
End Sub
 
Top