Sub luxation()
Dim N As Long
Dim c As Integer
'assumes you have the header selected (row 1) for your column of interest
If Selection.Columns.Count > 1 Then Exit Sub

col = Selection.Column  'sets the column number

N = Cells(Rows.Count, col).End(xlUp).Row
For i = N To 2 Step -1
If Cells(i, col) = Cells(i - 1, col) Then
Cells(i, col) = ""
End If
Next i

End Sub