Macro question: copying different value x number of times

Hello,

I am trying to paste a different value [which I copy from cells(1,i)] every 9 rows down column A. For example, will copy value B1 and paste it from Range (A1:A19) then copy C1 and paste in the following 9 rows (A20:A28).

Is there a way to do this faster?

Thanks!