Macro Error when Filtering in a Pivot Table

Hi,

I recorded a macro to Filter a Sum field and I get a Run time 1004 error? Any ideas?

[code]
ActiveSheet.Range("$A$5:$G$189").AutoFilter Field:=6, Criteria1:=">=10", _
Operator:=xlAnd
[code]

Or does someone know a better way to do this, what I would like is a button for the user to click that would filter the cells?

Thank you,
Sandi