Use simple below coding...
Sub proTEST()
For i = 1 To Application.WorksheetFunction.CountA(Range("A:A"))
If ActiveCell.Value = ActiveCell.Offset(0, 1).Value Then
ActiveCell.ClearContents
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub
Best Wishes from...