Move List of Numbers into X Groups of (as close to) Equal Sum Value

Do you understand the algorithm being used and how the code works? How much of your question is how to edit VBA and how much is more generic scaling up the algorithm and whether it is appropriate for your specific problem?

Walking through the code, the algorithm looks something like:

1) Figure out the approximate sum for each subgroup. Since we are dividing the data into 2 approximately equal subgroups:
1a) Sum up all numbers and
1b) Divide by 2 (store result in "halftotal").
2) Sort the data
3) Starting at the top of the sorted list, loop through the data and assign values to each subgroup
3a) Assign value to group A until the sum of group A is just less than halftotal
3b) Assign the remaining values to group B
Note that this algorithm puts the smallest numbers into group A and the largest numbers into group B. Also note that, unless the sum of groupA is exactly halftotal, then group A's sum will be smaller than group B's sum.

The main thing to change to expand this to 6 groups is to change 1b so that you divide total sum by 6 instead of 2. Note that the algorithm will still put the smallest numbers in group A, the largest numbers in group F, and the intermediate values in order from group B to group E. Also note that Groups A through E will all have sums smaller than total/6, and group F will be the group with a sum larger than total/6. This may not be the "optimal" distribution of values -- if "optimal" is even important to your application.

Before spending a lot of effort editing and debugging this code, I would suggest you consider whether or not this algorithm is appropriate for what you want to do. If you like those results, then editing this procedure should be relatively straightforward. If this is not an appropriate result, then it may take quite a bit to edit this (perhaps to the point of preferring a different starting procedure) to get what you want.

I'm not sure what to recommend. These "resource allocation" type problems are outside of what I normally work on. I cannot readily think of a simple "edit" to the previous procedure that will do this. (I could think of an inefficient "brute force" type method that computes "subset sums" for every possible combination and then finds the "best" fit from there).

I do know that resource allocation is a common topic of study in computer science. I put "resource allocation algorithm excel" into my favorite search engine and came across several results. Among the top results:
This formula based spreadsheet + discussion: http://chandoo.org/wp/2012/10/11/for...ensics-no-031/
This Solver based template + discussion: https://www.exceldemy.com/allocating...-using-solver/

There are others out there. I wish I could help more, but I am not very familiar with this branch of programming.

please provide link to post in which you refer to
https://www.excelforum.com/excel-pro...um-groups.html
http://www.excelforum.com/excel-gene...f-numbers.html

looking at SHG post...slight error in the formula he provided
Try

Formula:

=D2+($C3=COLUMNS($C3:D3)-1)*$B3

to extend it to 6 groups simply extend the range for the Group

attached file is the same formula/method extended to 6 groups

maybe this thread is the one you thought of?
https://www.excelforum.com/excel-pro...qual-sets.html

Maybe this helps.

Public Sub DivideUpNumbers()
   Dim X As Long, iRow As Long
      Dim fin As Integer
'lets use an array
      Dim TmpTot() As Variant
      
   ' <<< CONFIG COLUMN HERE >>>
   Const SrcNumCol As String = "A"
'set up our variables
fin = Cells(Rows.Count, SrcNumCol).End(xlUp).Row
X = InputBox("Number of groups")
XTotal = Application.WorksheetFunction.Sum(Range(SrcNumCol & ":" & SrcNumCol)) / X
   ReDim TmpTot(1 To X + 1)
  
   ' sort data
   With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range(SrcNumCol & ":" & SrcNumCol)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With

   i = 1
   ' Assign Numbers to one of the subgroups
   For iRow = 1 To fin
      If IsNumeric(Cells(iRow, SrcNumCol).Value) Then         
'add items untill it exceeds the total allowed 
While Cells(iRow, SrcNumCol).Value + TmpTot(i) <= XTotal And iRow < fin
            Cells(iRow, SrcNumCol).Offset(0, 1).Value = "Grp-" & i
            TmpTot(i) = TmpTot(i) + Cells(iRow, SrcNumCol).Value
            iRow = iRow + 1
Wend
'force last row to last group and exit - note this will slightly biases the total towards the last group - we could do something smarter here if really needed but it could be academic
If i >= X Then
Cells(iRow, SrcNumCol).Offset(0, 1).Value = "Grp-" & X
Exit Sub
Else: End If
TmpTot(i + 1) = TmpTot(i) - XTotal
i = i + 1
iRow = iRow - 1
Else
      End If
   Next iRow
End Sub