Macro with autofilter with an array to remove unwanted criteria with wildcard

I'm having a hard time making this maro work in Excel 2010.

I need it to filter out the items "AR", "BATCH", and the line of "Total:*" where the * is a total amount of any given number dependant on the day.

Below is the coding I have that Excel is not liking. Please assist if possible.

Thanks,
Crystal


Sub FilterAccurateRawData()
'
' FilterAccurateRawData Macro
'

'
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AA$45415").AutoFilter Field:=1, Criteria1:=Array("<>AR", "<>BATCH", "<>Total:*")
Operator:=xlFilterValues
Sheets("Instructions").Select
Range("A9").Select
End Sub

This is giving me a syntax error, but I can't find the error.

when I modify it, it says:
Compile error: expected expression on the Operator:=xlFilterValues

I have modified the syntax to work properly finally, but the autofilter is not eliminating "AR" and "BATCH" and "Total*" from the filter selection. It is unselecting everything and allowing everything through.

here is the new syntax.

Sub FilterAccurateRawData()
'
' FilterAccurateRawData Macro
'

'
Sheets("Accurate Raw Data").Select
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Range("A1:AA1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AA$45415").AutoFilter Field:=1, Criteria1:=Array("<>AR", _
"<>BATCH"), _
Operator:=xlAnd
'ActiveSheet.Range("$A$1:$AA$45415").AutoFilter Field:=1, Criteria2:="<>BATCH", _
Operator:=xlAnd'
'ActiveSheet.Range("$A$1:$AA$45415").AutoFilter Field:=1, Criteria3:="<>Total*", _
Operator:=xlAnd'
Range("A2:AA2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("<1> Accurate Activity").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Sheets("Instructions").Select
Range("A9").Select
End Sub