Excel VBA：在将数据透视表复制到新工作表时保留粗体数据透视小计标签

Question

我尝试将数据透视表复制到新工作表中，该工作表包含数据透视表的值以及粗体的小计。以下是我在其他帖子中使用的内容（Copying Pivot Table Formats）

Option Explicit

Sub Sample()
    With Sheets("Sheet1")
        .Range("H1:I6").Copy

        With .Range("M7")
            .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

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

然而，当我使用这段代码时，我得到的只是没有格式化的数据透视表中的值。我需要保留小计的粗体格式，以便我可以在新工作表中使用不同的方式。

我也尝试使用文本输出确定小计（可见，非小计显示空格，但是当您查看公式栏中的实际文本值时，没有空格）。

有什么想法吗？或者，有一个更好的解决方案，在我复制出枢轴后尝试确定哪些行是小计？