Autofiltering Multiple Items Through Macro

[nf1del83]

I am looking for something similar to below, except for only "RS" and "CF" I also want to add "DC" and "TS" as more options. I tried adding it as criteria 3 and 4 using the previous format, but only got errors. Thanks for the help!



Sub DeleteProducts()
'
' DeleteProducts Macro
'
' Keyboard Shortcut: Ctrl+Shift+E
'
ActiveSheet.Range("$A$1:$FF$10000").AutoFilter Field:=4, Criteria1:="=RS**", _
Operator:=xlOr, Criteria2:="=CF**"
ActiveWindow.SmallScroll Down:=-18
End Sub