I would like populate the blue area with random numbers.

sum of C3 to R3 should be equal to B3 value: 124
also;
sum of C3 to C26 should be equal to C2 value: 705

I tried to achieve it with the following code:
(this code was originally posted here: [Code by @Mech](https://stackoverflow.com/questions/60637394/how-to-generate-ranges-of-random-values-on-x-columns-and-y-rows-that-sum-up-to-s)

```
Sub RandomNumbersArray()
    ' dim your variables. this tells vba what type of variable it is working with
    Dim lRow As Long
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Worksheets("SPLIT BY DAYS")
    ' find the last row in column b (2) in the above defined ws
    lRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row

    ' loop through rows 3 to last row
    For i = 3 To lRow
        ' generate a random number between 0 and the row contents of column B (5)
        ws.Cells(i, 3).Value = Int(Rnd() * (ws.Cells(i, 2).Value + 1))

        ' generate a random number between 0 and the difference between column B and colum C
        ws.Cells(i, 4).Value = Int(Rnd() * (ws.Cells(i, 2).Value - ws.Cells(i, 3).Value))

        ' subtract the difference between column B and the sum of column C and column D
        ws.Cells(i, 5).Value = ws.Cells(i, 2).Value - (ws.Cells(i, 3).Value + ws.Cells(i, 4).Value)

        ' subtract the difference between column B and the sum of column C and column D and column E
        ws.Cells(i, 6).Value = ws.Cells(i, 2).Value - (ws.Cells(i, 3).Value + ws.Cells(i, 4).Value + ws.Cells(i, 5).Value)

        ' subtract the difference between column B and the sum of column C and column D and column E and column F
        ws.Cells(i, 7).Value = ws.Cells(i, 2).Value - (ws.Cells(i, 3).Value + ws.Cells(i, 4).Value + ws.Cells(i, 5).Value + ws.Cells(i, 6).Value)
    Next i

    ' sum column C (column 3) and place the value in C2
    ws.Cells(2, 3).Value = Application.WorksheetFunction.Sum(Range(Cells(3, 3), Cells(lRow, 3)))
    ' sum column D (column 4) and place the value in D2
    ws.Cells(2, 4).Value = Application.WorksheetFunction.Sum(Range(Cells(3, 4), Cells(lRow, 4)))
    ' sum column E (column 5) and place the value in E2
    ws.Cells(2, 5).Value = Application.WorksheetFunction.Sum(Range(Cells(3, 5), Cells(lRow, 5)))
    ' sum column F (column 6) and place the value in F2
    ws.Cells(2, 6).Value = Application.WorksheetFunction.Sum(Range(Cells(3, 6), Cells(lRow, 6)))
    ' sum column G (column 7) and place the value in F2
    ws.Cells(2, 7).Value = Application.WorksheetFunction.Sum(Range(Cells(3, 7), Cells(lRow, 7)))
End Sub

```

[![enter image description here](https://i.stack.imgur.com/T139n.png)](https://i.stack.imgur.com/T139n.png)

EDIT: Just to clarify, no zeros or negative numbers.