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
[TABLE="width: 500"]
<tbody>[TR]
[TD]State1[/TD]
[TD]State 2[/TD]
[/TR]
[TR]
[TD]MI[/TD]
[TD]MI[/TD]
[/TR]
[TR]
[TD]OH[/TD]
[TD]if this is blank, enter data from A2[/TD]
[/TR]
[TR]
[TD]KY[/TD]
[TD]if this row is blank, enter data from A3[/TD]
[/TR]
[TR]
[TD]WV[/TD]
[TD]WV[/TD]
[/TR]
[TR]
[TD]IN[/TD]
[TD]if this row is blank, enter data from A5[/TD]
[/TR]
</tbody>[/TABLE]

****** id="cke_pastebin" style="position: absolute; top: 131.2px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">[TABLE="width: 500"]
<tbody>[TR]
[TD]if this is blank, enter data from A2[/TD]
[/TR]
</tbody>[/TABLE]
</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.