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

我试图将一个数据透视表复制到一个新的工作表，其中包含枢轴的值加上粗体的小计。 这里是我从另一个post在这里（ 复制数据透视表格式 ）

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 

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

我也尝试使用文本输出来确定小计（显然​​，非小计显示一个空格，但是当您查看编辑栏中的实际文本值时没有空格）。

有任何想法吗？ 或者，有没有更好的解决scheme，试图确定哪些行是小计后，我从主数据库中复制出来？