filterout multiple value from table using vba

Question

ActiveSheet.Range("$A:$IP").AutoFilter Field:=45, Criteria1:Array("<>COM", "<>", "<>RES"),_ Operator:=xlFilterValues