vba - Extract Unique values from Single Column via Colllection and Dictionary

[大灰狼1976]

I made an interesting thing. The results are sorted.
But I did AutoFilter in advance.
The code like below:

Sub Unique_List_via_AutoFilter()
    Dim arr
    arr = Application.Substitute(ActiveSheet.AutoFilter.Filters.Item(1).Criteria1, "=", "")
    [f2].Resize(UBound(arr)) = Application.Transpose(arr)
End Sub