try

If Replace(ActiveCell.Offset(0, -1), "ORT", "") <> ActiveCell.Offset(0, -1) Then ActiveCell.Value = "ORT"