Insert Total and Sum After Each group of data

[Zibi]

Please Help,

I need help inserting Text that would say "Total" under each product group and Auto Sum for each group of data in the next column


Thanks

Apple	3
Apple
Apple	4
Apple
Apple
Total	7
Orange
Orange	3
Orange
Orange
Total	3
Cheese	9
Cheese
Cheese	3
Total	12

<COLGROUP><COL style="WIDTH: 48pt" span=2 width=64><TBODY>
</TBODY>

 

[anthonya2369]

Subtotal does this already. Have you tried that?

 

[Zibi]

Subtotal would work if the rows of the different product would stay the same every time I pull the date. The issue is that every day when I pull the data that changes, and I have 100 to 200 items and need to sum every one separate.</SPAN>

 

[Oeldere]

You could use a pivot table to sum the data of each product.

 

[Zibi]

The spreadsheet is used also for inventory counting and next to each item there are batch codes, therefore I would like not to change the format just insert the totals between the different groups of items. Currently I am using some code to separate the different groups and create the space for the total lines</SPAN>



</SPAN>Sub Test()
Dim Rng As Range
Dim x As Long


'Good to insert 3 blanks'
' *** Change starting row and column reference to suit ***
Set Rng = Range("F1:F" & Range("F65536").End(xlUp).Row)
For x = Rng.Rows.Count To 2 Step -1
If Rng.Cells(x, 1).Offset(-1, 0).Value <> Rng.Cells(x, 1).Value Then
Rng.Cells(x, 1).EntireRow.Insert Shift:=xlDown

Rng.Cells(x, 1).EntireRow.Insert Shift:=xlDown
Rng.Cells(x, 1).EntireRow.Insert Shift:=xlDown

End If
Next x
End Sub