Place Valuse in Cell depanding on another

G

Gerry

If C2 is blank then put value of B2 into C2 otherwise
leave C2 as it is. All data type are the same. Can anyone
help me with this please.
 
J

JE McGimpsey

One way:

With Range("C2")
If IsEmpty(.Value) Then .Value = .Offset(0, -1).Value
End With
 
G

Gerry

Many Thanks for this.
Now I want to replicate this down the column.

Can you assist.

Gerry
 
J

JE McGimpsey

One way:

Dim rCell As Range
For Each rCell in Range("C2:C" & _
Range("C" & Rows.Count).End(xlUp).Row)
With rCell
If IsEmpty(.Value) Then .Value = .Offset(0, 1).Value
End With
Next rCell
 
Top