Search within a column and repeat the search until all items are found

Both codes should do that. If they are not working can you provide a sample with some data as depicted in the .jpg file?

Sub RandyLiposki()
Dim rcell As Range
For Each rcell In Range("H2:H" & ActiveSheet.UsedRange.Rows.Count + 1)
    If rcell.Value = "TODAY" Then
        rcell.Offset(, -1).Value = rcell.Offset(, -1).Value
    End If
Next rcell
End Sub