let
    Source = Table.PromoteHeaders( Excel.CurrentWorkbook(){[Name="tbl"]}[Content])
    in Table.Combine( Table.AddColumn(Source, "a", each let   a =  Date.EndOfMonth([Date Start]),
    b = Number.IntegerDivide(Number.From(a - [Date Start]),1)+1,
    c_min = Number.RoundDown([Продажи]/b),
    c_maх = Number.RoundUp([Продажи]/b),
    k_maх=[Продажи]-b*c_min,
    k_min=b-k_maх,
    e = List.Dates(Date.From([Date Start]), b, #duration(1, 0, 0, 0)),
    f = List.Repeat({c_maх},k_maх)&List.Repeat({c_min},k_min)
in Table.FromColumns({e,f},{"Date","Продажи"}))[a])

Repl = Table.ReplaceValue(Kalendar, each [Неделя],  each f(Date.Month([Дата]), [Неделя]), Replacer.ReplaceValue,{"Неделя"}),
f=(m,w)=>if List.AllTrue({m=1,w=52}) or List.AllTrue({m=1,w=1}) then 2 else w,

=var curweek=MAX('Week'[Week])
var rd=CALCULATE(SUM('Sale'[Sale]);'Sale'[week]=curweek)
return
rd

Table.RemoveColumns(#"Предыдущая таблица", List.Transform({1..13}, each "Column"&Number.ToText(_))

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица3"]}[Content],
    Min1 = Table.AddColumn(Источник, "Min1", (x)=>List.Min(List.Skip(Record.ToList(x)))),
    PMin1 = Table.AddColumn(Min1, "PMin1", (x)=>List.Skip(Record.FieldNames(x)){List.PositionOf(List.RemoveLastN(List.Skip(Record.ToList(x)),1),x[Min1])})
in
    PMin1

let   regexTest=(text as nullable text,reg as nullable text, optional delim as nullable text) =>
    let

        t = ("<script>document.write(('"&text&"').match(new RegExp('"®&"', 'gim')).join('"&delim&"'))</script>"),
      r = Web.Page(t)[Data]{0}[Children]{0}[Children]{1}[Children]{0}[Text]{0}
    in r
in regexTest

Source = Web.Contents(url,[Headers =  ResHead]  ),
S = Text.FromBinary(Source)

<span class="cat-product__price__new-price__count">9.55</span>

let
 url ="https://www.tbm.ru/cat/komplektuyuschie-dlya-mebeli/sistemy-vydvizhnykh-yaschikov/napravlyayuschie/f...;,
ResHead=[
#"accept"= "text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9",
//#"accept-encoding"= "gzip, deflate, br",
#"accept-language"= "ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7",
#"cache-control"= "max-age=0",
#"cookie"="JSESSIONID_OLP=F4EE70C25DCF40889ABD07831757CE95.web2_t7_java8; PHPSESSID_IM=0u79aku9cmbu6vo1ljco4rc4js; _ym_uid=167602096954985262; _ym_d=1676021616; __utma=52544237.295090193.1676021616.1676021616.1676021616.1; __utmc=52544237; __utmz=52544237.1676021616.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmt=1; __utmb=52544237.1.10.1676021616; tbms=710541df-876d-4c80-93d2-584ff6039a26; rrpvid=551380534566958; _ym_visorc=w; _ym_isad=2; rcuid=63e60f709562c1e4a1381e0a; TBM_TOWN=273",
#"sec-ch-ua"= "Not_A Brand;v=99, Google Chrome;v=109, Chromium;v=109",
#"sec-ch-ua-mobile"= "?1",
#"sec-ch-ua-platform"= "Android",
#"sec-fetch-dest"= "document",
#"sec-fetch-mode"= "navigate",
#"sec-fetch-site"= "none"
],
Source = Web.Contents(url,[Headers =  ResHead]  ),

S = Text.FromBinary(Source)
S1=Text.BeforeDelimiter(Text.AfterDelimiter(Text.AfterDelimiter(S,"cat-product__price__new-price__count"),">"),"</span>")
in
    S1

<a id="buy-retail-button" class="cat-product__btn-buy" href="https://www.tbmmarket.ru/mebelnye-komplektuyuschie/furnitura/petli/frm0152/">                     <span class="cat-product__btn-buy-text">Купить в розницу</span></a>

Рубли -  <span class="price price-number">(.*?)</span>
Копейки - <span class="dime">(.*?)</span>

let    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"дата", type text}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип", "Дата1", each 
        [a=Text.Split([дата],"-"),
        b=#date(Number.FromText(a{2}), Number.FromText(a{0}), Number.FromText(a{1}))
        ][b], type date)
 in
      #"Добавлен пользовательский объект"

let
lst={{"1","1","1","1","A","1"},{"2","2","2","2","B","2"},{"3","3","3","3","C","3"}}
in
lst

let url =ваша ссылка,
headers=
[
тут указываем содержимое запроса и cookie
], 
response =Web.Contents(url, [Headers = headers]),