I think you posted this before, you must not have liked my suggestions.
However, here is another, a macro. It assumes that you data starts in C6. You
can type A-D in cells A1 to A4 Totals allocated for each are placed in column
B, the order count for each in column D, and Column D of the data shows which
sales-person is allocated the order.

Sub TBonus()
Dim sumA As Double, sumB As Double, sumC As Double, sumD As Double
Dim countA As Long, countB As Long, countC As Long, countD As Long
Dim nr As Long, c As Variant
Dim rng As Range

Count = 4
nr = Range("c6").CurrentRegion.Rows.Count
Set rng = Range(Cells(10, 3), Cells(nr, 3))
'set the 4 teams basic amounts
sumA = CCur(Cells(6, 3)): sumB = CCur(Cells(7, 3)): sumC = CCur(Cells(8,
3)): sumD = Cells(9, 3)
countA = 1: countB = 1: countC = 1: countD = 1
Cells(6, 4) = "A": Cells(7, 4) = "B": Cells(8, 4) = "C": Cells(9, 4) = "D"
 
'find the rest of the values
 For i = 10 To nr
     If CCur(sumA) < CCur(sumB) And CCur(sumA) < CCur(sumC) And CCur(sumA)
< CCur(sumD) Then
     sumA = sumA + CCur(Cells(i, 3))
     countA = countA + 1
     Cells(i, 4).Value = "A"
     ElseIf sumB < sumA And sumB < sumC And sumB < sumD Then
       sumB = sumB + CCur(Cells(i, 3))
       countB = countB + 1
       Cells(i, 4).Value = "B"
       Debug.Print countB
       ElseIf sumC < sumA And sumC < sumB And sumC < sumD Then
         sumC = sumC + CCur(Cells(i, 3))
         countC = countC + 1
         Cells(i, 4).Value = "C"
     ElseIf sumD < sumA And sumD < sumB And sumD < sumC Then
       sumD = sumD + CCur(Cells(i, 3))
       countD = countD + 1
       Cells(i, 4).Value = "D"
   End If
 Next
 Cells(1, 2).Value = sumA: Cells(2, 2).Value = sumB: _
 Cells(3, 2).Value = sumC: Cells(4, 2).Value = sumD
 Cells(1, 4).Value = countA: Cells(2, 4).Value = countB: _
 Cells(3, 4).Value = countC: Cells(4, 4).Value = countD
 Cells(1, 1).Select
End Sub

Perhaps this will suit you better.
Peter