在新的工作簿中显示数据透视表详细信息

Question

我今天需要一份有趣的工作，需要帮​​助。 我在所有业务销售中都有一个庞大的主表，我按月创建了一个数据透视表（请参见下面的简化版本）。我想创建一个宏，该宏将在单独的工作簿上显示每个行标签的所有详细信息，而不是与当前代码运行时所在的工作簿相同。 附言：将每个单独的工作表都标有行标签（例如，一月，二月，三月等）也很好

仅在同一工作表上显示详细信息的“我的当前宏”

Sub MakeReports()
    Dim c As Range
    With Sheets("Pivot Table").PivotTables(1)
        For Each c In .DataBodyRange.Resize(0, 1)
           c.ShowDetail = True
           c.Move
        Next c
    End With
    
End Sub