assuming you can get the company number in column A and the employee name in comlumn B:

Cell E1 = Count(A:A)
Cell E2 = the company number youre looking for

Sub copy()
Dim compnum
Dim looplength
Dim currentcell
looplength = Range("E1").Value
currentcell = 1
compnum = Range("E2").Value
While currentcell <= looplength
If Abs(Range("A" & currentcell).Value - compnum) = 0 Then
Range("B" & currentcell).Select
Selection.copy
Range("C" & currentcell).PasteSpecial
End If
currentcell = currentcell + 1
Wend
Columns("C:C").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub