konwersja formatu danych źródłowych na format daty - VBA

Cześć,
Nie mogę sobie poradzić ze zmianą formatu daty.
Pobieram dane źródłowe,w których jest problem z formatem daty -tzn. przy próbie przekształcenia "excel nie łapie zmiany".
Próbowałam zmienić ręcznie oraz kodem > następnie dla sprawdzenia przejść na liczbę (data zwyczajowo to 4****), ale zmiany nie zachodzą . Natomiast gdy odejmuje od siebie daty to liczby wychodzą poprawnie.

Fragment kodu ma określić czy w danym miesiącu umowa jest aktywna i sprawdzać to dla wszystkich wierszy. Najprostszy sposób to sprawdzenie czy data od/do jest większa/mniejszą od określonego miesiąca.

Poniżej kod:


Niestety nie działa w przypadku danych źródłowych, gdy zmienię ręcznie datę w komórce zaczyna działać (w załączonym pliku wpisałam w komórki G24 H24 daty ręcznie i tutaj działa poprawnie).
Może ktoś z Was ma pomysł jak to rozwiązać?
Z góry wielkie dzięki!
W załączeniu plik.

Zamiast
Cells(r, c).NumberFormat = "yyyy-mm-dd"
wpisz:
Cells(r, c) = DateValue(Cells(r, c))

Jeśli razem z formatowaniem, to obie linie.

Wielkie dzięki!
Zadziałało