try that mate:


[VBA]
Sub tryme()

Dim lr As Long, i As Long

With Worksheets("YourWorksheetName")
lr = .Range("B" & .Rows.Count).End(xlUp).Row

For i = 2 To lr
If .Cells(i, "D").Value = "" And .Cells(i, "B").Value <> "" Then
.Cells(i, "D").Value = .Cells(i, "B").Value
End If
Next i

End With

End Sub
[/VBA]