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.
Flag.jpg

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.