zhead,
Perhaps ......
Code:
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
Hope that helps.