Soru Döngülü makro oluşturma

[masmavidoksanlar]

Merhaba sabahtan beri bir makro yapmaya çalışıyorum fakat başaramadım elimde 1000 satır bir sayfa var amacım
A1 hücresinin içeriğini B1 B2 B3 e kopyalamak ve devamında
A4 ü B4 B5 B 6
A7 B7 B8 B9 şeklinde devam etmesi ama bununla ilgi bir kaynak bulamadım yardımcı olabilir misiniz bana?

 

[PLİNT]

Merhaba
Aşağıdaki örnekleri deneyebilirsiniz.

Sub yaz()
For a = 1 To Cells(Rows.Count, "A").End(3).Row Step 3
Range("B" & a & ":B" & a + 2).Value = Cells(a, "A").Value
Next
End Sub

veya

Sub kopya()
For a = 1 To Cells(Rows.Count, "A").End(3).Row Step 3
Cells(a, "A").Copy Range("B" & a & ":B" & a + 2)
Next
End Sub