如果数据透视表源是某个数据源，请更改数据透视表的数据源

Question

我知道以下代码可以通过按下按钮将所有数据透视表源更改为特定源。

Sub Change_Pivot_Source()

     Dim pt As PivotTable

     For Each pt In ActiveWorkbook.Worksheets("Sheet2").PivotTables
         pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create _
            (SourceType:=xlDatabase, SourceData:="Data2")
     Next pt

End Sub

我将如何调整此代码以使其更具动态性，即IE，将其放在修饰符中，以便将if的{​​{1}}设为SourceData Source1，将其更改为{ {1}} then将Source2更改为else

抱歉，我对vbasic宏一无所知。