I have follow pivot tabel:

NAME VALUE1 VALUE2
401001 50 60
401002 60 30
401022 40 10
411011 10 3
411013 70 30
426022 10 30
.....

How count subtotal of main type account in VBA?
result:

NAME VALUE1 VALUE2
401001 50 60
401002 60 30
401022 40 10
401999 150 100 'sum of 401001÷401022
411011 10 3
411013 70 30
411999 80 33 'sum of 411011÷411013
426022 10 30
etc. accounts


I work in excel 2k.
Can anyone provide me with the code?

Regards
Mark