Te mando la solución, sigue mis instrucciones.
-La pestaña donde tienes todos los vendedores renombrala como "vendedores"
-No tienes que crear las hojas tú. Solo tienes que tener la pestaña vendedores y ya está.
-Ahora solo queda ejecutar la macro siguiente:
Sub vendedores()
'por luismondelo
Sheets("vendedores").Select
Range("a1").CurrentRegion.Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a2").Select
columna = Range("iv1").End(xlToLeft).Column
Do While ActiveCell.Value <> ""
valor = ActiveCell
fila = ActiveCell.Row
contarsi = Application.WorksheetFunction.CountIf(Columns(1), valor)
Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = valor
Sheets("vendedores").Select
Range(Cells(1, 1), Cells(1, columna)).Copy Destination:=Sheets(valor).Range("a1")
Range(Cells(fila, 1), Cells(fila + contarsi - 1, columna)).Copy Destination:=Sheets(valor).Range("a2")
Do While ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Loop
Loop
End Sub