|This is quick and dirty. |
I suggest that you try it in a backup copy of your workbook in case things go terribly wrong.
'Determine last row with data in Column A
lastRw = Range("A" & Rows.Count).End(xlUp).Row
'Increase Row counter by the number of rows divided by 2
lastCount = lastRw + lastRw / 2
'Loop through rows, inserting 2 after every 4
For rw = 5 To lastCount Step 6
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.