อาจจะมั่วหน่อยนะครับใช้เวลานานมากกว่าจะได้มา จนมาสะดุดกับ 2 บรรทัดสุดท้าย ซึ่งเป็นตัวหลักที่จะใช้เปลี่ยน Data Source ของ Pivot Table ที่เพิ่ง copy ไปจากไฟล์เดือนเก่า และต้องการเปลี่ยน Data Source ของทุก Pivot Table ในไฟล์ อันนี้สามารถทำได้หรือไม่ครับ

Sub AutoPivot1()

S1 = Application.GetOpenFilename(MultiSelect:=False)
F1 = Application.GetOpenFilename(MultiSelect:=False)
Workbooks.Open (S1)
Workbooks.Open (F1)
Sheets(1).Name = "RawPDTBKK"
Workbooks(Dir(S1)).Activate
Workbooks(Dir(S1)).Sheets("VolRev").Copy Before:=Workbooks(Dir(F1)).Sheets(1)
Workbooks(Dir(F1)).Activate
Sheets("VolRev").Activate
ActiveSheet.PivotTable.ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,_
SourceData:=Sheets("RawPDTBKK").Range("a1", CurrentRegion))

End Sub