Bir satırdaki verileri başka satırlara otomatik nasıl kopyalarım?

[rza35]

Örnek olarak c1 hücresinde bulunan verinin aynısını a1-a10 arası kopyalamasını istiyorum. Bunu macroyla nasıl halledebilirim?

 

[askm]

Sub deneme()
For i = 1 To 10
Cells(i, 1) = Cells(1, 3)
Next
End Sub