Help with VBA code if cell is blank in column C put in formula, then convert to value

[willow1985]

Hello,

I am looking to clean up some data in another Macro I have and am trying to figure out the code for one part of the clean up.
Basically in column C there are ship dates and in column B there are due dates. When there is a blank cell in column C I want it to bring over the value from column B.

The below code I have is giving me an error so I am missing something...

Dim rCell As Range

For Each rCell In Range("C2:C")

    If rCell.Value = "" Then

        rCell.Formula = "=[@[Due Date]]"
        rCell.Value = rCell.Value
        
    End If
    
Next rCell

Any help would be appreciated.

Thank you!

 

[Fluff]

How about

With ActiveSheet.ListObjects("SR").ListColumns("Ship Date").DataBodyRange
   .Value = Evaluate(Replace("if(@<>"""",@," & .Offset(, -1).Address & ")", "@", .Address))
End With

 

[willow1985]

I went with something more simple as it is quicker. Although the above code works it is very very slow.
I added a column in the table (AV) that has the formula: =IF([@[Ship Date]]="",[@[Due Date]],[@[Ship Date]])
When new data is put in it will give me the Due Date for only blank cells in the Ship Date column. Then the below VBA code will just copy that column data over.
This extra column will remain hidden. Not the fanciest of solutions but it is a lot quicker than the above.

Thank you all for your help. It is much appreciated!

Columns("AU:AW").Select

Selection.EntireColumn.Hidden = False

Range("AV2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Range("C2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Columns("AV:AV").Select

Selection.EntireColumn.Hidden = True

Range("A2").Select

 

[Fluff]

Glad we could help & thanks for the feedback.