Защо AutoFilter VBA при критерии от числов диапазон не ги разпознава като числа?

Question

Това е стандартен VBA код, но работи с текстов формат

Някой може ли да помогне?

Private Sub CommandButton1_Click()
' Филтриране на  числова колона по критерии от колона в друг лист

Dim ws1, ws2 As Worksheet
Dim rngCrit As Range
Dim rngBas As Range

Dim aCrit As Variant

Set ws1 = Worksheets("база)
Set ws2 = Worksheets("критетии")
Set rngBas = ws1.Range("$A$1").CurrentRegion
Set rngCrit = ws2.Range("A2:A6")

aCrit = rngCrit.Value

rngBas.AutoFilter _
    Field:=1, _
    Criteria1:=Application.Transpose(aCrit), _
    Operator:=xlFilterValues

End Sub

Благодаря