Auto populate cells

Maybe:

Sub yuenk()
Dim rcell As Range
For Each rcell In Range("A2:A" & Range("B" & Rows.Count).End(3).row)
    If rcell = "" Then rcell = rcell.Offset(-1)
Next rcell
End Sub