Sub Main()
Dim i As Integer
i = 1

Do While Cells(i, 1).Value <> "Salesman"
    i = i + 1
Loop

row = 438 + 10
Do While i < 438 - 4
    i = i + 1
    company = Cells(i, 1).Value

    Do While Cells(i, 1).Value <> ""
       i = i + 1
    Loop
    Total = Cells(i, 10).Value
    Cells(row, 1).Value = company
    Cells(row, 2).Value = Total
    row = row + 1

Loop

End Sub