To remove duplicate value in excel cols (VBA Code -Excel Macros)

Const strDATA As String = "F"

Public Sub Tl_Generic()
Dim strHTMLmain, strHTML As String
Dim i, j As Integer

For i = 1 To 6

strHTMLmain = Range(strDATA & i).Value

For j = 1 To 6
If (j <> i) Then

strHTML = Range(strDATA & j).Value
If (strHTML <> "") Then
If strHTMLmain = strHTML Then
'newFLAG = Range(newLIST & i).Value
Range(strDATA & i).Value = ""
End If
End If
End If
Next j
Next i
MsgBox "done!"
End Sub