If we started with this:
and run this tiny macro:
Sub DeDup()
Dim N As Long, i As Long
N = Cells(Rows.Count, "A").End(xlUp).Row
For i = N To 2 Step -1
If Cells(i, "A").Value = Cells(i - 1, "A").Value Then Cells(i, "A").Clear
Next i
End Sub
We would result in this: