Sub luxation() Dim i As Long With Range("R:R") For i = .Cells(.Rows.Count).End(xlUp).Row To 2 Step -1 If .Cells(i).Value2 = .Cells(i - 1).Value2 Then .Cells(i, 1).ClearContents Next i End With End Sub