Format kopieren ohne Range

ich würde gerne das Format der Zelle A1 zu A5 kopieren, aber ohne Range, weil das nur langsam geht (also nicht eine Tausendstel Sekunde, sondern zwei tausendstel Sekunden, aber immerhin, es kommt wsas zusammen).

Es geht ungefähr so:

cells(1,1)=cells(5,1).Format

Aber nur ungefähr, denn so geht es eben nicht. So ähnlich. Weiss wer, wie?

Und weiss auch wer vielleicht, wie man das Format von A1:A5 zu C2:C6 kopiert auf diese Weise?

LG Nino