Du überträgst Zelle für Zelle die Daten per
Ole nach Excel. Das ist besonders langsam.
Besser wäre es, die Daten zunächst in eine Variantes Array zu schreiben. Dann mittels Range einen Zellbereich in Excel definieren und das Array mittels range.value auf einmal nach Excel zu übertragen.
Dies spart erheblich Zeit. Natürlich muss der Zellbereich in Excel zusammenhängend sein, was aber bei dir scheinbar der Fall ist.
Gruß Kompi