VBA - Optymalizacja makra

Witam,
Napisałem makro które wylicza mi przerwy pomiędzy datami wystawionych faktur, wszystko działa tak jak chciałem ale tylko na małej ilości danych. Mam do sprawdzenia 340000 wiersz i trwa to za długo. Proszę o pomoc.

Powinno to pomóc.

spróbuj to wpisać zaraz na początku oraz na końcu przed End


ja mam w swoim arkuszu tylko do sprawdzania kolumny od A do ZZ i 25000 wierszy i czasami makro trwało od 5 do 30 minut :/
Teraz śmiga w sekundach.

A wstaw no spakowany plik z przykładowymi danymi...