Insert blank row and sum total above for each same field.

Hi,

I have a report that I will need to insert a blank row after each unique group of value, then sum the above value. Is there a way to do it in VBA?
The data is already sorted by same value in column P.
From range P15, go to last same value, then insert 2 blank row, then on range S to U, sum the total above.
Then continu.

Here is the spreadsheet Sheet1(original), Result (result that should be).

Split Sum Question.xlsx

If anyone can help on this. Thank ou.

Data | Subtotals will do this for you - just record a macro while you go through it manually (Select the table, then Data/Subtotals, then For each change in P, sum S, T and U).

Hope this helps.

Pete

Maybe:

Sub calvinle()
Dim i As Long
For i = Range("P" & Rows.Count).End(3).Row To 15 Step -1
    If Range("P" & i) <> Range("P" & i + 1) Then Rows(i + 1).Insert
Next i
For i = 19 To 21
    For Each numrange In Columns(i).SpecialCells(xlConstants, xlNumbers).Areas
        SUMADDR = numrange.Address(False, False)
        numrange.Offset(numrange.Count, 0).Resize(1, 1).Formula = "=SUM(" & SUMADDR & ")"
        numrange.Offset(numrange.Count, 0).Resize(1, 1).Value = numrange.Offset(numrange.Count, 0).Resize(1, 1).Value
        C = numrange.Count
    Next numrange
Next i
nodata:
For i = Range("P" & Rows.Count).End(3).Row To 15 Step -1
    If Range("P" & i) = "" Then Rows(i + 1).Insert
Next i
End Sub

Pete: I need a vba macro because I have over 100 report to do it. By recording the macro, it will not go from the first to last row. and my data are different lenght for each report.

John: This one work however it added 2 empty line under the header which I don't need that.
Also, what is this code stand for in the code?

C = numrange.Count

I see that variable but I don't see you use it anywhere in the code.

Try:

Sub calvinle()
Dim i As Long
For i = Range("P" & Rows.Count).End(3).Row To 15 Step -1
    If Range("P" & i) <> Range("P" & i + 1) Then Rows(i + 1).Insert
Next i
For i = 19 To 21
    For Each numrange In Columns(i).SpecialCells(xlConstants, xlNumbers).Areas
        SUMADDR = numrange.Address(False, False)
        numrange.Offset(numrange.Count, 0).Resize(1, 1).Formula = "=SUM(" & SUMADDR & ")"
        numrange.Offset(numrange.Count, 0).Resize(1, 1).Value = numrange.Offset(numrange.Count, 0).Resize(1, 1).Value
        C = numrange.Count
    Next numrange
Next i
nodata:
For i = Range("P" & Rows.Count).End(3).Row To 17 Step -1
    If Range("P" & i) = "" Then Rows(i + 1).Insert
Next i
Rows(16).Delete
End Sub