Macro insert rows if column changes + add subtotal

[twomind]

Hi,

I have not big idea about macros, only formulas, and I can't do what I need with them so would be great if you can help me buiding a macro for it. What I need is

1. To leave the first 8 rows free
2. In the table, I need 2 rows to be inserted everytime the reference from column G changes
3. Finally, to add in first inserted row a subtotal adding up figures from columns from O to S.

In "sheet 1" there's an example of the initial table I have, and in "sheet 2" example of the outcome I want.

I tried with the following but it only adds 1 row and don't know how to do the subtotal:

Dim lngRow As Long, intRow As Long

lngRow = Cells(Rows.Count, 7).End(xlUp).Row
For intRow = lngRow To 2 Step -1
If Cells(intRow, 7).Value <> Cells(intRow - 1, 7).Value Then _
Rows(intRow).Resize(1).Insert

Next intRow

Thanks!!Insert rows Macro.xls