Filtering for Values not Currently in Data Set

[reberryjr]

I'm trying to run the below code, but I'm not getting any results. In playing with the code, it appears to be because there are no values of "Pending" at this point, but it is likely they will occur. How can I include the value in the filter so those values are captured if/when they are in the data set?

                    With mN.UsedRange
                        .AutoFilter Field:=2, Criteria1:=Array("Approval", "Denial", "Pending")
                        .AutoFilter Field:=13, Criteria1:=Array("=", "")
                    End With
                    
                    mNLR = mN.Range("A" & Rows.Count).End(xlUp).Row
                    
                    If mNLR > 1 Then mN.Range("M2:M" & mNLR).SpecialCells(xlCellTypeVisible).Value = "Acceptable"
                    
                    'Clears the filter and resets the Last Row.
                    mN.AutoFilterMode = False
                    mNLR = mN.Range("A" & Rows.Count).End(xlUp).Row

 

[BigBeachBananas]

How about

With mN.UsedRange
    Dim hasPending As Boolean
    hasPending = WorksheetFunction.CountIf(.Columns(2), "Pending") > 0 'Change column as needed

    If hasPending Then
        .AutoFilter Field:=2, Criteria1:=Array("Approval", "Denial", "Pending")
    Else
        .AutoFilter Field:=2, Criteria1:=Array("Approval", "Denial")
    End If

    .AutoFilter Field:=13, Criteria1:=Array("=", "")
End With

mNLR = mN.Range("A" & Rows.Count).End(xlUp).Row

If mNLR > 1 Then mN.Range("M2:M" & mNLR).SpecialCells(xlCellTypeVisible).Value = "Acceptable"

mN.AutoFilterMode = False
mNLR = mN.Range("A" & Rows.Count).End(xlUp).Row