How to get and copy Pivot Value (Grand Totals ) using vba from multiples pivot tables to report sheet

Question

I need your help, I find difficulties in referencing grand totals of multiple pivot tables at the report sheet. Of course, I have record the code, it works, but not if new d