Filtrowanie danych za pomocą słownika

Cześć, chciałbym stworzyć makro które będzie filtrowało dane ale problem w tym że nie wiem jakie dokładnie dane będą w pliku. W tym celu wykorzystałem słownik który przechodzi przez daną kolumnę i zapisuje klucze po których chcę później filtrować. Niestety nie wiem jak pobrać dane z tego słownika. Poniżej pętla która przechodzi przez daną kolumnę. Dodałem Debug.Print żeby sprawdzić czy słownik działa prawidłowo.

For Each key In dictCity.Keys
Set oCity = dictCity(key)
With oCity
Debug.Print key
ws1.Range("A1").Autofilter Field:=1, Criteria1:=key, Operator:=xlFilterValues
End With
Next key