let
    f = Excel.CurrentWorkbook(){[Name="Table_1"]}[Content],
     
    n = List.Buffer(f[сумма]),
    k = List.Count(n),
    c = List.Buffer(
            List.Generate(
                        ()=>[i=0,s=n{i}],
                        each [i]<k,
                        each [i=[i]+1,s=[s]+n{i}],
                        each [s]
                        )
                    ),
    
    i = Number.Power(10,9),
    s = List.Sum(n),
    l = List.Numbers(i,Number.RoundDown(s/i),i),
    d = List.Buffer(f[Дата]),

    g=(x)=>List.PositionOf(c,x,Occurrence.First,(x,y)=>x>y),
    h=(x)=>[v = x, d = d{g(x)}],
    
    tbl = Table.FromRecords(List.Transform(l,h)),
    to = Table.TransformColumnTypes(tbl,{{"d", type date}, {"v", Int64.Type}})
in
    to