Bir sütundaki boş değerleri yan sütundaki değeri yazdırma

[u.L.a.s]

merhabalar

A sütunumda A2 den itibaren satır satır veriler var.
bazı satırlarda ise boş oluyor veri olmuyor. bu boş olan satırlara bir yandaki B sütunundaki değer ne ise onu yazsın istiyorum. ama bunu makro kodla yaptırmak istiyorum

bilgi ve yardımlarınızı rica ederim

 

[Orion1]

Buyurun.

Sub doldur59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To sonsat
    If Cells(i, "A").Value = "" Then Cells(i, "A").Value = Cells(i, "B").Value
Next i
End Sub

 

[u.L.a.s]

üstadım emeğine bilgine sağlık çok teşekkür ederim

 

[Orion1]

üstadım emeğine bilgine sağlık çok teşekkür ederim

Rica ederim.
İyi çalışmalar.