How to showdetails for all pivot values in a single new sheet ?

[Nvshah]

I have a pivot table and I need to show the underlying data ( show detail feature of pivot table) for all pivot values in table into a single new sheet instead of creating a new sheet for each cell value. So far I got this code from a site which loops thru all cells but creates new sheet for each one. I need all results in a single sheet without repeating the column labels for each cell.Any help would be highly appreciated:

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