Lo que logré es buscar los datos repetidos.
Lo puedes descargar de aquí el ejemplo.
http://www.excelnegocios.com/buscar-dato-en-diferentes-columnas/
tal vez otro experto puede ayudar a recorrer la columnas HS y borrar
Sub Busqueda()
On Error Resume Next
Application.ScreenUpdating = False
With Range("a5:L65536")
.Interior.Color = xlNone
.Font.Color = vbBlack
End With
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Z = Range("A65536").End(xlUp).Row
For Each Rng In Range("a5:L" & Z)
bus = InStr(1, Rng.Value, UCase(Range("b1").Value))
If bus <> 0 Then
Range("A" & Rng.Row & ":" & "L" & Rng.Row).Interior.Color = RGB(118, 196, 200)
Rng.Font.Color = vbRed
End If
Next Rng
ActiveSheet.Range("$A$4:$L$" & Z).AutoFilter Field:=1, Criteria1:=RGB(118 _
, 196, 200), Operator:=xlFilterCellColor
Application.ScreenUpdating = True
End Sub