VBA Error with Advanced Filtering

[cesar333]

I have a pivot table on sheet named Schedule2. I need to filter out column D based on a criteria on sheet named "Criteria" in column A2:A220. I have a VBA code but i get an error "advancedfilter method of range class failed". funny thing is that this VBA will work on other machines but not all.


Sub FilterAC()
'
' FilterAC Macro
'


'
Columns("D:D").Select
Range("D5:D2871").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Criteria").Range("A1:A220"), Unique:=False
Columns("P:Q").Select
Range("Q5").Activate
Selection.ColumnWidth = 50
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 1
Columns("L:Q").Select
Range("Q1").Activate
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
With Selection
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
End Sub