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

Hi Roshan,
a little late reaction, but you could "catch" the range in an array like this:

Sub DrillSubTot()
Dim d As Variant
Dim ar()
With Sheets("PivotTable").PivotTables(1)
    d = .GetPivotData("Price", "Country", "Bel")
    d = .GetPivotData("Price", "Country", "Bel").Address
    Range(d).ShowDetail = True
    ar = Selection
    ActiveSheet.Delete
End With
'You could add a line like this for example:
Sheets("PivotTable").Cells(5, 15).Resize(UBound(ar, 1), UBound(ar, 2)).Value = ar
End Sub

Cheers
Erwin