if filter criterara misses sub needs to exit

[hudson andrew]

Hi all,

can some one please help me with minute changes to the below code . code should not work if the filter criteria is not available currently it is giving me error if no blanks in the range .

Sub blamkssss()

 ActiveSheet.AutoFilterMode = False

    lr = Range("a" & Rows.Count).End(xlUp).Row


        Range("AC1:AC" & lr).AutoFilter Field:=1, Criteria1:="="

        Range("AC2:AC" & lr).SpecialCells(12).EntireRow.Delete

        ActiveSheet.AutoFilterMode = False

    
End Sub