Show Details of all cells at once

Hi Folks,

I tried using a VBA code in another thread but it didn't work for me. It was this one:

Dim x As Long
Dim y As Long
Dim rngPTData As Range
Dim ws As Worksheet
Dim pt As PivotTable
Dim grandTotal As Range


With ActiveSheet.PivotTables(1)
Set rngPTData = .DataBodyRange
x = rngPTData.Rows.Count + 2
y = rngPTData.Columns.Count + 1
'MsgBox grandTotal.Value
End With

With ActiveSheet
.Cells(x, y).Select
.Cells(x, y).ShowDetail = True
End With

I have a pivot table in which the data is 35 columns wide and 45 rows long and I need to show all details in one sheet. There are 968 cells of data so of course going one by one is not an option. Each cell detail is 726 rows long, which means that the data should be 702k rows long which is fine.

Can anyone help me with this?

I can't share a file because it's proprietary and sensitive but any guidance would be appreciated.

Thanks!