Excel Pivot Tabelle Werte mit Formatierung in neue Date kopieren

Excelversion: 2013

In einer Exceldatei gibt es ein Tabellenblatt zur Erfassung von Daten.
In weiteren Tabellenblättern wurden verschiedene Pivot Tabellen angelegt, die alle auf den gleichen Datenbestand zugreifen. Die Pivo Tabellen haben bereits das Aussehen, wie es am Ende sein soll.
Nun sollen die Pivot Tabellen in eine neue Datei ohne Datenverknüpfung, also die reinen Werte, aber mit Formatierung, kopiert werden.
Dies soll einzeln für jede Pivot Tabelle erfolgen. Je nach dem, welche Pivot Tabelle man braucht.
Ist das mittels Makro möglich?

Vielen Dank für die Hilfe!

Sub CopyPivots()
    Dim sh As Worksheet, pv As PivotTable, wbNew As Workbook
    Set wbNew = Workbooks.Add
    For Each sh In Sheets
        For Each pv In sh.PivotTables
            pv.DataBodyRange.Copy
            With wbNew.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
                .PasteSpecial xlPasteAllUsingSourceTheme
                .PasteSpecial xlPasteValues
            End With
        Next
    Next
End Sub