求救:Excle 用巨集錄製樞紐分析後，程式碼出現錯誤?

各位大神:

我在錄製樞紐的巨集後，再次執行時，就被系統告知有問題，請問要怎麼修改才能執行成功？ 程式碼如下:
錄製過程是選取第一張表單的F欄(Hold_Code);G欄(Pellicle PartNo)，然後插入樞紐分析，欄標籤=>F欄，列標籤=>G欄，加總值=>G欄，然後巨集停止錄製。但無法順利執行此錄製巨集，因為第一次上網問Excle問題，表達欠周全，尚請見諒!



Sub 巨集6()
'
' 巨集6 巨集
'

'
ActiveWindow.SmallScroll Down:=0
Range("F3:G4016").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"MRP2!R3C6:R4016C7", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="工作表4!R3C1", TableName:="樞紐分析表1", DefaultVersion:= _
xlPivotTableVersion10
Sheets("工作表4").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Hold_Code")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Pellicle PartNo")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("樞紐分析表1").AddDataField ActiveSheet.PivotTables("樞紐分析表1" _
).PivotFields("Hold_Code"), "計數 - Hold_Code", xlCount
Range("L14").Select
Application.WindowState = xlMaximized
End Sub