VBA Automatisches Ausfüllen mit Wert

Hallo zusammen,

ich möchte mithilfe eines Makros gern den Wert einer Zelle automatisch so lange nach unten kopieren, bis eine nicht leere Zelle erreicht ist. Dann soll diese Zelle wiederum nach unten kopiert werden, bis erneut eine nicht leere Zelle erreicht ist. Das Ganze soll beispielsweise in Spalte C geschehen und zwar nur dann, wenn in der jeweiligen Zeile in Spalte A eine Zahl steht. In der Beispieldatei soll also die Zahl 2001 in den Zellen C5-C8 und die Zahl 3201 in den Zellen C28-C31 und C36-C44 landen.
https://www.herber.de/bbs/user/159798.xlsx

Habt ihr eine Idee?

Herzlich, Bailo