=CALCULATE(SUM(CS2[kCB]);DATESBETWEEN(CS2[Период];DATE(2022;01;01);MAX(CS2[Период])))

//Сам код который берет диапазон 01.01.2010 по 01.10.2023

let
    Источник = Web.Page(Web.Contents("https://nationalbank.kz/ru/exchangerates/ezhednevnye-oficialnye-rynochnye-kursy-valyut/report?beginDate=01.01.2010&endDate=01.10.2023&rates%5B%5D=6")),
    Data0 = Источник{0}[Data],
    #"Замененное значение" = Table.ReplaceValue(Data0,".",",",Replacer.ReplaceText,{"ЕВРО"}),
    #"Измененный тип" = Table.TransformColumnTypes(#"Замененное значение",{{"", type date}, {"ЕВРО", type number}}),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип",{"Числовое значение"}),
    #"Переименованные столбцы" = Table.RenameColumns(#"Удаленные столбцы",{{"", "Дата"}})
in
    #"Переименованные столбцы"


//Запрос на ячейку в файле

let
    Источник = Excel.CurrentWorkbook(){[Name="RD"]}[Content]{0}[Столбец2],
    #"Извлеченная дата" = Date.From(Источник)
in
    #"Извлеченная дата"


// Хотелось бы видеть следующее (01.10.2023 заменено на & RD &
let    Источник = Web.Page(Web.Contents("https://nationalbank.kz/ru/exchangerates/ezhednevnye-oficialnye-rynochnye-kursy-valyut/report?beginDate=01.01.2010&endDate=&RD&&rates%5B%5D=6")),
    Data0 = Источник{0}[Data],

Sub DeleteAllQueriesAndConnections()
    Dim cn As WorkbookConnection
    Dim lo As ListObject
    Dim to_ As TableObject
    
    ' Удалить все подключения
    For Each cn In ThisWorkbook.Connections
        cn.Delete
    Next cn
    
    ' Удалить все сводные таблицы
    For Each lo In ThisWorkbook.Sheets
        If lo.TableStyle <> "" Then
            lo.Unlist
        End If
    Next lo
    
    ' Удалить все таблицы
    For Each to_ In ThisWorkbook.Sheets
        If to_.ListObject Is Nothing Then
            to_.Delete
        End If
    Next to_
End Sub