let
    ColName= Table.ToList(Excel.CurrentWorkbook(){[Name="col"]}[Content]),
    Таблица = Excel.CurrentWorkbook(){[Name="таб"]}[Content],
    Combine = Table.AddColumn(Таблица, "Combine", each Text.Combine({[a], [b]}, ""), type text)
in
    Combine

let
    Продукты = {"Продукт1", "Продукт2","Продукт3"},
    таблица= Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ListGen = 
    Table.AddColumn(таблица, "Тест", (rec)=>
         Table.FromRecords(
                            List.Generate(()=>
                                              [i=0 
                                               , доход=try Record.Field(rec,"Доход"&Продукты{i}) otherwise 0
                                               , расход=try Record.Field(rec,"Расход"&Продукты{i}) otherwise 0
                                              ]
                                             , each [i]<List.Count(Продукты)
                                             , each [ 
                                                      i=[i]+1
                                                    , доход=try Record.Field(rec,"Доход"&Продукты{i}) otherwise 0
                                                    , расход= try Record.Field(rec,"Расход"&Продукты{i}) otherwise 0
                                                    ]
                                             , each [Прод = Продукты{[i]}
                                                     ,#"Доход-Расход"=[доход]-[расход]
                                                     ,#"Расход/Доход"=[расход]/[доход]
                                                     ]
                                          ) 
                          ))
in
    ListGen

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    group = Table.Group(Источник, {"Ключ"}, {{"Продукт1", each List.Sum([Продукт1]), type number}, {"Продукт2", each List.Sum([Продукт2]), type number}, {"Продукт3", each List.Sum([Продукт2]), type number}})
in
    group

let
    join = Table.RemoveColumns( Table.Join( Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], "Ключ1", Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content], "Ключ2", JoinKind.LeftOuter) , "Ключ2" ),
    sum1 = Table.AddColumn(join, "Сумма1+Сумма2", each [Сумма1]+nvl([Сумма2],0), Number.Type ),
    sum2 = Table.AddColumn(Table.ReplaceValue(join,null,0,Replacer.ReplaceValue,{"Сумма2"}), "Сумма1+Сумма2", each [Сумма1]+[Сумма2], Number.Type )
in
    sum2

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица"]}[Content],
    types = List.Zip( { Excel.CurrentWorkbook(){[Name="types"]}[Content][ColName], Excel.CurrentWorkbook(){[Name="types"]}[Content][Type] } ),
    TrTypes = Table.TransformColumnTypes(Источник, types )
in
    TrTypes

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Выбор = "Б",
    Фильтр = Table.SelectRows( Источник, each [Б] = 1 )
in
    Фильтр

  Сумма драйвера по Региону:=SUM('ДрайверРегионы'[Значение]) 

  Доля Региона:=DIVIDE([Сумма драйвера по Региону];CALCULATE([Сумма драйвера по Региону];ALL('СпрРегионы')))

  Сумма драйвера по Городу:=SUM('ДрайверГорода'[Значение]) 
 
  Доля города внутри Региона:=DIVIDE([Сумма драйвера по Городу];CALCULATE([Сумма драйвера по Городу];ALL('Структура'[Город])))
 
  Итого сумма на город:=SUM('СуммаАллокации'[Сумма для Аллокации])*[Доля Региона]*[Доля города внутри Региона]
 

Например Продукт7=100, Продукт8=Продукт3*(Продукт7+Продукт6)