VBA Coded to Set Filter up to Column AO but Stops at Column AF

[censo]

The following snippet is supposed to (using that term lightly) create the ability to filter columns up to AO but it stops at AF.

'Begins EVALUATE Items Removal that are also OOS
    Selection.AutoFilter
    With Range("A1:AO" & Range("A" & Rows.Count).End(xlUp).Row)
      .AutoFilter Field:=41, Criteria1:="=EVALUATE"
      .AutoFilter Field:=4, Criteria1:="=0"
      .Offset(1).EntireRow.Delete
    End With
    ActiveSheet.AutoFilterMode = False

My suspicion as to what could be causing this anomaly is that Column AF is the only column that has no data in it, so it stops there but I need the functionality to extend out to AO.

Thoughts?

 

[jasonb75]

Selection.AutoFilter stops at the empty column, you need to use the actual range to include anything after it.

'Begins EVALUATE Items Removal that are also OOS
    With Range("A1:AO" & Range("A" & Rows.Count).End(xlUp).Row)
      .AutoFilter
      .AutoFilter Field:=41, Criteria1:="=EVALUATE"
      .AutoFilter Field:=4, Criteria1:="=0"
      .Offset(1).EntireRow.Delete
    End With
    ActiveSheet.AutoFilterMode = False

 

[censo]

Selection.AutoFilter stops at the empty column, you need to use the actual range to include anything after it.

Works like a charm. Thank you very much.