Copy contents of one cell into another if cell is blank

[fire9990]

How do I copy the contents of cell B2 into cell D2 if D2 is empty

 

[ryguy7272]

Select Cell B2, Edit > Copy, select cell D2, Edit > Paste Special > Values > OK

 

[Gord Dibben]

Copy/paste manually.

Or run a macro.

Sub qwert()
With ActiveSheet.Range("D2")
If .Value = "" Then
.Value = Range("B2").Value
End If
End With
End Sub


Gord Dibben MS Excel MVP