运行时错误1004" 错误消息

Question

我跑我的微距但错误信息弹出，并强调此行

ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Cust Name'[All]", _ 
     xlLabelOnly + xlFirstRow, True 

谁能解决这个

这里是我的代码：？

ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Collection Site'[All]", _ 
     xlLabelOnly + xlFirstRow, True 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Collecti‌​on Site"). _    
     PivotFilters.Add2 Type:=xlValueIsGreaterThan, DataField:=ActiveSheet. _ 
     PivotTables("PivotTable1").PivotFields("Sum of Total Value"), Value1:=50000 
ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Cust Name'[All]", _ 
     xlLabelOnly + xlFirstRow, True 

Answer 1

estas intentando copiar y pegar datas filtrados，por eso el error 1004.