Hi dude,

check this code:

Sub test()
Dim i As Integer, lr As Integer

lr = ActiveSheet.UsedRange.Rows.Count

For i = 1 To lr

    If Range("D" & i).Value = "" Then
    Range("D" & i).Value = Range("B" & i).Value
    End If
    
    Next
    
End Sub
Keep Smiling