Flag if Value

[Foncesa]

Hi,

1. In Column C, If any value in Cell then flag Column E Cell as Old.
2. In Column D, If any value in Cell then flag Column E Cell as New.
3. Finally move the Column C value of Cell to Column D to last record.

Help to solve this.
28068

Thanks.

[SamT]

Formulas are dynamic, they wont work


Dim LR as Long
Dim Rw as Long
Lr = Cells(Rows.count, "A").End(xlUp).Row

For Rw = 2 to LR
If Cells(Rw,"C") = "" Then
Cells(Rw, "E") = "NEW"
Else
Cells(Rw, "E") = "OLD"
Cells(Rw, "D") = Cells(Rw, "C")
Cells(Rw, "C").ClearContents
End If
Next Rw

[Foncesa]

Hi,

Thanks SamT.