Copy pivottables subtotal to new sheet.

[Admin]

Hi

When I run the code on the file you attached I get the following values in B2:C14 on 'All Total Calc' sheet.

BSP    484
BWF    0
CAN    0
CTC    0
DSP    0
LNP    1
MSP    1
PSP    3
TC    0
TSP    0
USP    59
VSH    0
VSP    41 

Is it what you are after ?

Note: Please do not delete any cells in B2:B14 on 'All Total Calc' sheet.
The copy pastes is happening based on these cell values.