Insert 6 blank rows After every 3rd rows

[gg016]

im trying to figure out a way to insert 6 blank rows after every 3rd row of my data. and continue that process until its all the way thru w/ my data, at row 1500

how can do this in macro?
i am somewhat of a beginner at this point.. only knowing to search online... then copy/paste. lol.

advises are welcomed, thanks all!!

PS: im using Excel 03 btw.

 

[machopicho]

Try:

Sub TEST()
For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -3
Rows(r).Resize(6).Insert
Next
End Sub

 

[gg016]

Try:

Sub TEST()
For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -3
Rows(r).Resize(6).Insert
Next
End Sub

this works, but since i have 996 rows, its breaking down the last row into one row on its own... how do i fix that?

please advise.
thank you so much for the quick reply and advise!

 

[gg016]

inserted a row on the bottom and made it work... thank you!!!!