Корректировка критериев фильтра умных таблиц

Question

У меня есть простой код. Вопрос. Figure in Range ("Y21") = "<> 2" не работает для критериев фильтра. Там нет сообщения об ошибке. Данные были отфильтрованы, но без прикрепленных пи c

Подскажите, пожалуйста, что здесь не так? Спасибо вам за поддержку.

Sub step_6()                    
    Dim ws As Worksheet
    Dim filterColumn As String
    Dim lo As ListObject

    Worksheets("ex_types").Activate
       Set ws = ActiveSheet
       Set lo = ws.ListObjects(1)

    lo.AutoFilter.ShowAllData
    filterColumn = ActiveWorkbook.Sheets("cover").Range("Y21") 'Here is logic in cell, => IF TRUE = "2" IF FALSE "<>2"
    ws.ListObjects("tbl_ex_types").Range.AutoFilter Field:=3, Criteria1:=filterColumn 
End Sub