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
[TABLE="width: 96"]
<COLGROUP><COL style="WIDTH: 48pt" span=2 width=64><TBODY>[TR]
[TD="class: xl63, width: 64, bgcolor: transparent"]Apple[/TD]
[TD="class: xl63, width: 64, bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Apple[/TD]
[TD="class: xl63, bgcolor: transparent"] [/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Apple[/TD]
[TD="class: xl63, bgcolor: transparent, align: right"]4[/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Apple[/TD]
[TD="class: xl63, bgcolor: transparent"] [/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Apple[/TD]
[TD="class: xl63, bgcolor: transparent"] [/TD]
[/TR]
[TR]
[TD="class: xl64, bgcolor: transparent"]Total[/TD]
[TD="class: xl63, bgcolor: transparent, align: right"]7[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Orange[/TD]
[TD="class: xl63, bgcolor: transparent"] [/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Orange[/TD]
[TD="class: xl63, bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Orange[/TD]
[TD="class: xl63, bgcolor: transparent"] [/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Orange[/TD]
[TD="class: xl63, bgcolor: transparent"] [/TD]
[/TR]
[TR]
[TD="class: xl64, bgcolor: transparent"]Total[/TD]
[TD="class: xl63, bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Cheese[/TD]
[TD="class: xl63, bgcolor: transparent, align: right"]9[/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Cheese[/TD]
[TD="class: xl63, bgcolor: transparent"] [/TD]
[/TR]
[TR]
[TD="class: xl63, bgcolor: transparent"]Cheese[/TD]
[TD="class: xl63, bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl64, bgcolor: transparent"]Total[/TD]
[TD="class: xl63, bgcolor: transparent, align: right"]12
[/TD]
[/TR]
</TBODY>[/TABLE]

 

[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