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

各位大神:
我在錄製樞紐的巨集後，再次執行時，就被系統告知有問題，請問要怎麼修改才能執行成功？ 程式碼如下:
Sub 巨集6()



巨集6 巨集



​



​ ​ ​ Range("F3:G3855").Select

​ ​ ​ Sheets.Add

​ ​ ​ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

​ ​ ​ ​ ​ ​ ​ "MRP2!R3C6:R3855C7", Version:=xlPivotTableVersion10).CreatePivotTable _

​ ​ ​ ​ ​ ​ ​ TableDestination:="工作表7!R3C1", TableName:="樞紐分析表2", DefaultVersion:= _

​ ​ ​ ​ ​ ​ ​ xlPivotTableVersion10

​ ​ ​ Sheets("工作表7").Select

​ ​ ​ Cells(3, 1).Select

​ ​ ​ With ActiveSheet.PivotTables("樞紐分析表2").PivotFields("Hold_Code")

​ ​ ​ ​ ​ ​ ​ .Orientation = xlColumnField

​ ​ ​ ​ ​ ​ ​ .Position = 1

​ ​ ​ End With

​ ​ ​ With ActiveSheet.PivotTables("樞紐分析表2").PivotFields("Pellicle PartNo")

​ ​ ​ ​ ​ ​ ​ .Orientation = xlRowField

​ ​ ​ ​ ​ ​ ​ .Position = 1

​ ​ ​ End With

​ ​ ​ ActiveSheet.PivotTables("樞紐分析表2").AddDataField ActiveSheet.PivotTables("樞紐分析表2" _

​ ​ ​ ​ ​ ​ ​ ).PivotFields("Hold_Code"), "計數 - Hold_Code", xlCount

​ ​ ​ Range("M12").Select

End Sub