consulta URGENte!!!

hola, Gabriel !

... Columna A nombres de empresas que se repiten en varias filas, en total son 10,0000
.. columna b ... nombres de distintos vendedores, de esa empresa
en la otra columna sus correos
como... dejar todo los nombres y los correos en una misma fila [...]

el siguiente ejemplo hace lo que solicitas [eso creo]... en una hoja nueva que se agrega al mismo libro -?-
[solo confirma/modifica el nombre de la hoja con los datos de origen]
[opcionalmente, puedes quitar la marca del comentario y primero ordenara el listado en ascendente] -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Empresa_por_fila()
Application.ScreenUpdating = False
Dim Fila As Integer, Celda As Range, Col As Byte
Worksheets.Add
With Worksheets("hoja1")
If .AutoFilterMode Then .Cells.AutoFilter
' .Range("a1").CurrentRegion.Sort _
Key1:=.Range("a1"), Order1:=xlAscending, _
Key2:=.Range("b1"), Order2:=xlAscending, Header:=xlYes
.Columns("a").AdvancedFilter xlFilterCopy, , Range("a1"), True
For Fila = 2 To Range("a" & Rows.Count).End(xlUp).Row
.Range("a1").AutoFilter Field:=1, Criteria1:=Range("a" & Fila)
Col = 2
With .AutoFilter.Range
For Each Celda In .Offset(1).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
Celda.Offset(, 1).Resize(, 2).Copy Cells(Fila, Col)
Col = Col + 2
Next
End With
Next
If .AutoFilterMode Then .Cells.AutoFilter
End With
End Sub