How can I hide zero rows in a pivot table with calculated items?
 

I am using .pivotFields.CalculatedItems.add in VBA in excel to add a
calculated item to a pivot table. A side effect of adding a calculated item
seems to be that filtering in the pivot table becomes partially innefective.
The use of any page, row, or column filter results in numbers that are
filtered out being zeroed in the databodyarea but all the zero rows remain in
the pivot table. Is there any simple way to remove/hide the zero rows from
the pivot table? (Interestingly, the blank columns do disappear)