Consolidar.

hola, NS (que ?) !

asumiendo que los datos inician en la fila 2 hasta la ultima fila con datos en la columna A
y que a partir de la columna 2 siempre existe al menos un dato a revisar (hasta x_columnas a la derecha)
prueba con una macro +/- como la siguiente (OJO hay un limite para +/- 2048 rangos seleccionables)

Sub Elimina_duplicados_por_fila()
Dim Col As Byte, Fila As Integer, Duplicados As Range
For Fila = 2 To [a65536].End(xlUp).Row
For Col = 2 To Cells(Fila, 256).End(xlToLeft).Column
If Application.CountIf(Cells(Fila, 2).Resize(, Col - 1), Cells(Fila, Col)) > 1 Then _
Set Duplicados = Union(IIf(Duplicados Is Nothing, Cells(Fila, Col), Duplicados), Cells(Fila, Col))
Next
Next
If Not Duplicados Is Nothing Then Duplicados.Delete xlToLeft: Set Duplicados = Nothing
End Sub

saludos,
hector.

__ OP __

... tengo una base de dato... ejemplo 3 clientes los cuales tienen 5 numeros de telefono pero en ellos hay varios duplicados
... no son 3 clientes si no miles... ejemplo al cliente Juan tiene 5 numeros de referencia pero 2 son duplicados
... encontrar una manera... me deje solo los 4 numeros de contacto con el cliente ...
agradeciendoles su ayuda de antemano. Atte NS
A B C D E
1 Cliente Tel 1 Tel 2 Tel 3 Tel 4 Tel 5
2 Juan 123 741 159 123 951
3 Jose 345 852 345 345 357
4 Lucas 789 963 789 789 789