Many thanks

Is there code to do this i.e. amend this code:
ActiveSheet.Range("$A$6:$IP$340").AutoFilter Field:=2, Criteria1:= _
"=PTS*", Operator:=xlOr
ActiveSheet.Range("$A$6:$IP$340").AutoFilter Field:=3, Criteria1:= _
"=PTS*", Operator:=xlOr


Or will i need to actually go through the process of using the advanced filter?