Filters in VBA

'Filter
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="12"

 ActiveSheet.Range("A:O").AutoFilter Field:=9, Criteria1:="Bench-Allocation Pending"

'Filter view All
    Selection.AutoFilter Field:=1
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False

ActiveSheet.Range("$A$1:$R$" & endrows).AutoFilter Field:=4, Criteria1:="=CnTy", Operator:=xlOr, Criteria2:="="

Range(Range("C65536").End(xlUp), Cells(1)).AutoFilter