excel - ピボット テーブルの値とフォーマットをコピーする

Question

ピボット テーブルの形式をコピーすることができないようです。転送する値しか取得できません。この投稿を参照として使用しています: Copying Pivot Table Formats

ここに私のコードがあります:

Sub copyPaste(ByVal sht As Variant, ByVal cell As String)
Dim r As range
    pt.TableRange2.Offset(1, 0).Copy
    With wbReport.Sheets(sht).range(cell)
            .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

            .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False

            '.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
    End With

End Sub

何か不足していますか？