Generate all possible combinations from 4 sets.

This ?

Option Explicit

Sub demo1()

Dim i As Long, ii As Long, iii As Long, iiii As Long, n As Long, j As Long
Dim a, b

a = Range("C6:F29")

ReDim b(1 To 30000, 1 To 5)

For i = 1 To 24
    For ii = 1 To 16
        For iii = 1 To 10
            For iiii = 1 To 7
                n = n + 1
                b(n, 1) = a(i, 1): b(n, 2) = a(ii, 2): b(n, 3) = a(iii, 3): b(n, 4) = a(iiii, 4)
                For j = 1 To 4
                    b(n, 5) = b(n, 5) + b(n, j)
                Next j
            Next iiii
        Next iii
    Next ii
Next i
[I6].Resize(30000, 5).Clear
[I6].Resize(n, 5) = b
[I6].Resize(n, 5).Borders.Weight = 2
Columns(9).Resize(, 5).HorizontalAlignment = xlCenter
End Sub
Sub demo2()

Dim i As Long, ii As Long, iii As Long, iiii As Long, n As Long, j As Long, x As Long
Dim a, b

a = Range("C6:F29")

ReDim b(1 To 30000, 1 To 5)

For i = 1 To 24
    For ii = 1 To 16
        For iii = 1 To 10
            For iiii = 1 To 7
                x = a(i, 1) + a(ii, 2) + a(iii, 3) + a(iiii, 4)
                If x >= [I1] And x <= [I2] Then
                    n = n + 1
                    b(n, 1) = a(i, 1): b(n, 2) = a(ii, 2): b(n, 3) = a(iii, 3): b(n, 4) = a(iiii, 4)
                    b(n, 5) = x
                End If
            Next iiii
        Next iii
    Next ii
Next i
[I6].Resize(30000, 5).Clear
[I6].Resize(n, 5) = b
[I6].Resize(n, 5).Borders.Weight = 2
Columns(9).Resize(, 5).HorizontalAlignment = xlCenter
End Sub

you can setting how many group ,nGroup to result SUM

Dim arAll, aCom, dic, Ngroup As Long
Sub test1()
Dim a, b, c, d: Ngroup = 4
With Application
    a = .Transpose(Range("C6:C" & Cells(Rows.Count, 3).End(3).Row).Value) :  b = .Transpose(Range("D6:D" & Cells(Rows.Count, 4).End(3).Row).Value)
    c = .Transpose(Range("E6:E" & Cells(Rows.Count, 5).End(3).Row).Value) :  d = .Transpose(Range("F6:F" & Cells(Rows.Count, 6).End(3).Row).Value)
End With
ReDim arAll(1 To 4)
arAll(1) = a: arAll(2) = b: arAll(3) = c: arAll(4) = d
ReDim aCom(1 To 4)
Set dic = CreateObject("Scripting.dictionary")
combo 1
If dic.Count Then
  With [o6]
     .Resize(, 5).EntireColumn.Clear :  .Offset(-1).Resize(, Ngroup + 1).Value = Array("Data1", "Data2", "Data3", "Data4", "Sum")
     .Resize(dic.Count, UBound(aCom)).Value = Application.index(dic.items, 0, 0)
     .Offset(, UBound(aCom)).Resize(dic.Count).Formula = "=sum(rc[-4]:rc[-1])" :  .CurrentRegion.Borders.Weight = 2
  End With
End If
dic.RemoveAll: Set dic = Nothing
End Sub

Sub combo(Optional index As Long = 1)
 Dim i As Long
 If index = Ngroup + 1 Then
   If Not dic.exists(Join(aCom, "|")) Then
     If Application.Sum(aCom) >= [i1].Value And Application.Sum(aCom) <= [i2].Value Then dic(Join(aCom, "|")) = aCom
   End If
 Else
    For i = 1 To UBound(arAll(index))
     aCom(index) = arAll(index)(i)
     combo index + 1
    Next i
 End If
End Sub

Glad to have helped and thank you for the rep

Yes if you have More data Example from C:H, and want get result sum with Group 4,5,6 etc not all to revision
Only litte part code

For gr = 4 to Ubound(arAll)
combo 1,gr
Next gr
'and change in  sub module
sub combo(optional index as long = 1,byRef group as long)
'and change part code
If index > group +1 then

@daboho, thank you for the additional Note: post#7 how to extend columns.

I am stuck trying the code post#4 as per following extended data rows…example attached it take long time and excel does not respond please can you check what I am doing wrong?

My Best regards,
Moti

[Using my macro] I tested your latest file which has 4.6 Million + ( 70*55*40*30) combinations ALL of which fall within MIN/MAX limits

So YES, it takes some time to produce the results .....2 minutes 15 secs (faster than Daboho which I aborted) BUT which will not fit on 1M+ rows available!

Of course it can be done, BUT of what practical use is 4M + rows of data?