Vba subtotal code the places results in different column

[Bevg]

Hi,

I'm trying to figure out a way to use VBA to subtotal the # of apples column based on the Name column. However the results need to be in the Apple subtotal column.

Is there a way?

sorry for the underline is was the only way I could show my data in a table format

Name___#of apples____Apple subtotal
Bob________1
Bob________3___________ 4
Jane_______ 5
Jane_______ 1___________ 6
Sam _______1 ___________ 1
Hanna______2
Hanna______2
Hanna______4___________ 8

[CAntosh]

Is VBA a requirement? If you have names in column A and # in column B, putting the formula below in C3 and filling down through your data should give you the desired results:

=IF($A3<>$A4,SUM($B$2:$B3)-SUM($C$2:$C2),"")

[Bevg]

Hi, Thanks. I tried it and it misses the 3 and 4th occurrence of the name. I will tinker with the formula and see if I can get it to work. But thanks for the quick response.

I did try the vba
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True

Can changed the TotalList Array to the 3 column and the result was zero because "TotalList" is looking for the data to add together.

[CAntosh]

it misses the 3 and 4th occurrence of the name.

I'm not sure what you mean? I've attached a workbook so you can see what I'm seeing, take a look...

[Bevg]

Ok, the workbook help tremendously. It showed me what I was doing wrong. Yes your KING/QUEEN (cannot tell from your login id) OF THE SPREADSHEET! Thank you so much it works!!