pivot table - %structure with subtotals
 

I want create structure percent in some column of
pivottable.
I create field in pivottable: CalculatedFields.Add
with ...
.Calculation = xlPercentOfColumn
it's work fine but..
i did early subtotals (by VBA) in source data of pivot
table and structure% (in pt) is incorrect.
Unfortunately in pt:
..Function = False
..ColumnGrand = False

don't produce effect.

Any help will by appreciate

Regards
MArk