How to add array into Pivot Table data field in Excel VBA

Question

I\'m trying to have array in AddDataField .PivotFields("Sample") instead of Sample. The way I approach is that

First, Dim a as Variant Second, a=array(.rang