Subtotal values and then hide rows

[Extivalis]

Hi All,

I was wondering if there's a way to right a macro into VBA for this:

If I have a large list of data (range will vary), that's already sorted by text in Column H, I want to take all the values in Column F for the rows where Column H's value is the same, sum/subtotal those into Column G of the last row that Column H matches, and then hide there rows where G is blank.
(attached photos showing example of what I'm trying to go From and To - any identifying info removed)

 

[awoohaw]

Have you tried using a pivot table?

 

[Extivalis]

Have you tried using a pivot table?

I don't really know/remember pivot tables, but I can look into it.

 

[Peter_SSs]

I think all you need is this.

Sub Sum_Groups()
  With Range("G2:G" & Range("F" & Rows.Count).End(xlUp).Row)
    .Formula = "=if(H2=H3,"""",SUM(F$2:F2)-SUM(G$1:G1))"
    .Value = .Value
    .SpecialCells(xlBlanks).EntireRow.Hidden = True
  End With
End Sub