VBA错误代码1004

Question

我正试图绕过下面代码最后一行抛出的错误代码：

Sub pivotrefresh()
'

Dim AutofillE As Range
Dim Pvi As PivotItem
' pivotrefresh Macro
'

Application.ScreenUpdating = False

Sheets(2).Select
ActiveSheet.PivotTables("PivotTable1").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh

Range("A6:B6").Select
Range(Selection, Selection.End(xlDown)).Offset(-1, 0).Select
Selection.Copy
Range("P5").Select
ActiveSheet.Paste

ActiveSheet.PivotTables("PivotTable1").PivotFields("Min Pres Movement"). _
CurrentPage = "Reduction"