data from getpivotdata in specific worksheet or in the multi-dimension array

Hi gurus and experts,

Is there a way to save getpivotdata in a specific worksheet instead of a new worksheet? For instance, when the following code is run, the data saves in a new worksheet.

Sub DrillSubTot()
Dim d As Variant, aa() as variant
With Sheets("PivotTable").PivotTables(1)
    d = .GetPivotData("Price", "Country", "Bel")
    d = .GetPivotData("Price", "Country", "Bel").Address
    Range(d).ShowDetail = True
End With
End Sub

Also can we save the data (from Range(d).ShowDetail = True) in the array instead of saving in the worksheet?

I have attached the template file for your needful. Your advices are much appreciated.

Thank you
Roshan

Thanks Erwin.