Bu kodun bir kısa yolu varmıdır?

[x_files_x]

Mrb arkadaşlar ben elimdeki cetvelde K3 hücresindeki değeri kopyalayıp D3 hücresine yazıyorum ve arada kalan E3,F3,G3,H3,I3,J3 hücrelerini ise boş bırakıyorum
burda sadece 3.satır için işlemler yapıyor, ben a3 ile a10 arasındaki her satır için olsun istiyorum, ben tek tek 4,5,6,7,8,9,10 için ayrı ayrı bu kodu yazdım ama sacma geldi.

Sub Makro4()
'
' Makro4 Makro
'

'
    Range("D3").Select
    ActiveCell.FormulaR1C1 = Range("K3")
    Range("E3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("G3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("H3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("I3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("J3").Select
    ActiveCell.FormulaR1C1 = ""

End Sub

 

[Emir Hüseyin Çoban]

. . .

For i = 3 To 10
Cells(i, "D") = Cells(i, "K")
Range("E" & i & ":J" & i) = ""
Next i

. . .

 

[x_files_x]

. . .

For i = 3 To 10
Cells(i, "D") = Cells(i, "K")
Range("E" & i & ":J" & i) = ""
Next i

. . .

Elinize sağlık, Allah razı olsun. işimi görücektir.