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

[calvinle]

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.

[Pete_UK]

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

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[calvinle]

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?

Please Login or Register  to view this content.

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

[JOHN H. DAVIS]

Try:

Please Login or Register  to view this content.