VBA code to navigate and insert rows

[lishman]

Please can you help, I need to modify a spreadsheet which has 40,000 lines. Is there VBA code which will allow me to move down 22 rows, insert 3 rows, then move cell reference to the next cell after the 3 rows have been inserted, then repeat by moving down 22 rows then inserting 3 rows etc etc

 

[nightcrawler23]

then move cell reference to the next cell after the 3 rows have been inserted

What do you mean by this????

 

[lishman]

Simplified below by showing each row with an x. after every 3rd row of X's I have 2 blank rows.

x
x
x


x
x
x
inserted 2 rows here

x
x
x
inserted 2 rows here

x
x
x would like to add code to automatically insert 2 rows after this row
x
x
x would like to add code to automatically insert 2 rows after this row
x
x
x
x
x

 

[nightcrawler23]

Ohh.....
it seems Your first post had some typo errors.

 

[nightcrawler23]

Sub insertRows()

Range("A1").Select
Do While ActiveCell.Row < Range("A" & Rows.Count).End(xlUp).Row
    ActiveCell.Offset(3, 0).Select
    Rows(ActiveCell.Row & ":" & ActiveCell.Row + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(2, 0).Select
Loop
End Sub

Try this

Above code assume you have no rows inserted manually before running this code.

 

[lishman]

Works fine.

Many thanks