Count cells in dynamic table to limit data that user can display

[b00zzy]

Hello. I need to limit data that user can display in dynamic table using Calculation Condition (or macro).

For Straight Table in my model it is simple - i can put count(DISTINCT $(=concat( DimName, ' & '))) for rows count and (GetSelectedCount(DimHierarchy) + GetSelectedCount(ExprHierarchy)) for column count, multiply and it this a needed count to use in Calculation Condition

Can i get something similar in Pivot Table?

I  tried using macro that can calculate actual rows and columns:

Sub GetChartSize()

Set varObject = ActiveDocument.getsheetobject("CH06")

chartCol = varObject.GetColumnCount

chartRow = varObject.GetRowCount

ActiveDocument.Variables("vChartCol").SetContent chartCol, True

ActiveDocument.Variables("vChartRow").SetContent chartRow, True

End sub

But i dont know where to put this macro