Copy and Paste IF Cell in column is empty

[Sharid]

Hi

I need a code that will copy and paste data from column D to column B if column B is empty, the code will ignore any empty cells in column D and move to the next cell with data to copy over.

From this

A	B	C	D
JANE		JANE	DOE
JOHN	DOE	JOHN	DOE
JANE		JANE	SMITH
JOHN	SMITH	JOHN	SMITH
JAMES
JILL
JACK		JACK	JONES

<tbody>
</tbody>

To This

A	B	C	D
JANE	DOE	JANE	DOE
JOHN	DOE	JOHN	DOE
JANE	SMITH	JANE	SMITH
JOHN	SMITH	JOHN	SMITH
JAMES
JILL
JACK	JONES	JACK	JONES

<tbody>
</tbody>

Hope this makes sense

 

[mumps]

Place this formula in B1 and copy down: =IF(D1<>"",D1,"")
If you prefer a macro, please let me know.

 

[Fluff]

How about

Sub Sharid()
   With Range("B2", Range("A" & Rows.count).End(xlUp).Offset(, 1))
      .SpecialCells(xlBlanks).FormulaR1C1 = "=if(rc[2]<>"""",rc[2],"""")"
      .Value = .Value
   End With
End Sub