If cell is blank, return value from a different cell

[nkarnes]

If the cell B is blank, then enter the data from A.
If cell B is NOT blank, then skip.

Column A Column B

State1	State 2
MI	MI
OH	if this is blank, enter data from A2
KY	if this row is blank, enter data from A3
WV	WV
IN	if this row is blank, enter data from A5

<tbody>
</tbody>

****** id="cke_pastebin" style="position: absolute; top: 131.2px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">

if this is blank, enter data from A2

<tbody>
</tbody>

</body>Can you help?

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub FillB()
   With Range("B2", Range("A" & Rows.Count).End(xlUp).Offset(, 1))
      .Value = Evaluate(Replace(Replace("If(@="""",@a,@)", "@a", .Offset(, -1).Address), "@", .Address))
   End With
End Sub

 

[mikerickson]

Try

With Range("B:B").SpecialCells(xlCellTypeBlanks)
    .FormulaR1C1 = "=RC[-1]"
    .Value = .Value
End With

 

[Fluff]

Mike
Your code will copy the values from the first area into all other areas.

 

[mikerickson]

Darn, I forgot that that's how .Value works with discontinuous ranges.

 

[Fluff]

Tend to forget that myself sometimes.
But doing it like this should work

With Range("B:B")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-1]"
    .Value = .Value
End With

 

[mikerickson]

True.