Transponer.

Suponiendo los códigos en A y los teléfonos en B:

A B
1 Codigo Teléfono
2 10 321654879
3 10 777125431
4 22 548245697
5 10 222147841
6 22 452555870
7 22 326544221


(Y en espera de algo mas depurado), prueba con.

Sub Agrupar()
Dim columna, fila As Integer
Range("A2").Select
fila = 1
Range("A1:B7").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Do
If ActiveCell.Value <> ActiveCell.Offset(-1).Value Then
columna = 4
fila = fila + 1
Cells(fila, columna).Value = ActiveCell.Value
End If
columna = columna + 1
Cells(fila, columna).Value = ActiveCell.Offset(, 1).Value
Cells(1, columna - 3).Value = "Teléfono"
ActiveCell.Offset(1).Select
Loop While ActiveCell.Value > ""
Range("A2:C1000").Delete Shift:=xlToLeft
End Sub

Saludos desde Tenerife.
*************************************
"Noe´s" escribió en el mensaje news:

Hola, alguien me podria ayudar esto gracias desde ya,

Tengo una base de datos de telefonos y direcciones la cual esta compuesta
por varios clientes el problema es que muchos telefonos y direcciones vienen
hacia como lo detallo en el ejemplo

A B C
1 Codigo de Telefono
cliente
2 10 12345678
3 10 12345678
4 10 12345679
5 22 80000000
6 22 80000000
7 22 92000000


Lo que necesito es que los ponga de la siguiente manera

A B C D E
Codigo
1 de cliente telefono telefono telefono
2 10 12345678 12345678 12345679
3 22 80000000 80000000 92000000
4 46 88888888 88888888 77777777

He probado de varias formas pero ninguna me ha resulyado no me ha quedado
otra opcion que hacerlo paso a paso, Contando desde ya con su ayuda.
Noe´s