filter - hide active cell content

[danovkos]

hi all,
pls. how can i change this code, that it filtering the same value as i see (format) not, what is in cell?

now its Works this way:
if i have in column date „21.2.09“. I want hide this date in column.
I use autofilter but i use value 21.2.2009 not 21.02.09 and this doesnt filter nothing.
I need it change this way, that if i use my code it will short year 09 insted 2009 because with 09 it works. If i manualy use custome filter and write 21.2.09 it works.

How can i fix it?

Sub filter_NEOBSAHUJE_AktivBunka()
 
    Dim col, val, ctr As Long
    col = ActiveCell.Column
    val = ActiveCell.Value
    ctr = WorksheetFunction.CountBlank(Columns(col))
        val = ActiveCell.Value
    Set FiltRng = ActiveSheet.AutoFilter.Range
    col = Selection.Column - FiltRng(1).Column + 1 '<++++++++++++
    If FiltRng.Columns.Count = 1 And col = 0 Then col = 1
    FiltRng.AutoFilter Field:=col, Criteria1:=("<>" & val)
End Sub