Pivot table show detail to a specfic sheet

[Access Beginner]

Hi all,

I have a pivot table called "PivotTable1" on a sheet called "DataRequestPt". What I have been doing is applying various filters on this Pivot Table and then double clicking on the "CRN" field, which then spits out a data set to a sheet. Is there a way that the out-put be placed on a cheet called "Raw Data". When I recorded a macro to see if I could just updated the code, this is what was returned.

Sub PtableCRNOutput()
'
' PtableCRNOutput Macro
'
'
    Range("F7").Select
    Selection.ShowDetail = True
    Range("G8").Select
End Sub

 

[Access Beginner]

Did some further digging and found this code created by Jerry Sullivan back in 2011. Can anyone amend it so this output to a sheet called "Raw Data"?

Sub MakeReports()
    Dim c As Range
    With ActiveSheet.PivotTables(1)
        For Each c In .DataBodyRange.Resize(, 1)
           c.ShowDetail = True
        Next c
    End With
End Sub

 

[Access Beginner]

One last try. Any takers