=
CALCULATE (
    SUM ( 'Таблица1'[Продажи] );
    FILTER (
        ALLEXCEPT (
            'Таблица1';
            'Таблица1'[Точка];
            'Таблица1'[Товар]
        );
        '[B]Таблица1'[Дата]
            <= EARLIER ( 'Таблица1'[Дата] )
            && 'Таблица1'[Дата]
                >= (
                    EARLIER ( 'Таблица1'[Дата] ) - 2
                )
    )[/B]
) 

let
    Источник = Excel.Workbook(File.Contents("C:\Users\surayabha\Downloads\PQ PP BI.xlsx"), null, true),
    #"DATA 2020_Sheet" = Источник{[Item="DATA 2020",Kind="Sheet"]}[Data],
    #"Измененный тип" = Table.TransformColumnTypes(#"DATA 2020_Sheet",{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type any}, {"Column5", type any}, {"Column6", type any}, {"Column7", type any}, {"Column8", type any}, {"Column9", type any}, {"Column10", type any}, {"Column11", type any}, {"Column12", type any}, {"Column13", type any}}),
    #"Транспонированная таблица" = Table.Transpose(#"Измененный тип"),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Транспонированная таблица",{{"Column2", type text}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип1", "Сцепить", each [Column1] & "|" & [Column2]),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Добавлен пользовательский объект",{"Column1", "Column2"}),
    #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Удаленные столбцы",{"Сцепить", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column11", "Column12", "Column13", "Column14", "Column15", "Column16", "Column17", "Column18", "Column19", "Column20", "Column21", "Column22", "Column23", "Column24", "Column25", "Column26", "Column27", "Column28", "Column29", "Column30", "Column31", "Column32", "Column33", "Column34", "Column35", "Column36", "Column37", "Column38", "Column39", "Column40", "Column41", "Column42", "Column43", "Column44", "Column45", "Column46", "Column47", "Column48", "Column49", "Column50", "Column51", "Column52", "Column53", "Column54", "Column55", "Column56", "Column57", "Column58", "Column59", "Column60", "Column61", "Column62", "Column63", "Column64", "Column65", "Column66", "Column67", "Column68", "Column69", "Column70", "Column71", "Column72", "Column73", "Column74", "Column75", "Column76", "Column77", "Column78", "Column79"}),
    #"Транспонированная таблица1" = Table.Transpose(#"Переупорядоченные столбцы"),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Транспонированная таблица1", [PromoteAllScalars=true]),
    #"Измененный тип2" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"RUR|01.01.2020", Int64.Type}, {"RUR|01.02.2020", Int64.Type}, {"RUR|01.03.2020", Int64.Type}, {"RUR|01.04.2020", Int64.Type}, {"RUR|01.05.2020", Int64.Type}, {"UN|01.01.2020", Int64.Type}, {"UN|01.02.2020", Int64.Type}, {"UN|01.03.2020", Int64.Type}, {"UN|01.04.2020", Int64.Type}, {"UN|01.05.2020", Int64.Type}}),
    #"Несвернутые столбцы" = Table.UnpivotOtherColumns(#"Измененный тип2", {"Column1", "Column2", "Column3"}, "Атрибут", "Значение"),
    #"Разделить столбец по разделителю" = Table.SplitColumn(#"Несвернутые столбцы", "Атрибут", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"Атрибут.1", "Атрибут.2"}),
    #"Измененный тип5" = Table.TransformColumnTypes(#"Разделить столбец по разделителю",{{"Атрибут.2", type date}}),
    #"Измененный тип3" = Table.TransformColumnTypes(#"Измененный тип5",{{"Атрибут.1", type text}, {"Атрибут.2", type date}}),
    #"Дублированный столбец" = Table.DuplicateColumn(#"Измененный тип3", "Атрибут.2", "Копия Атрибут.2"),
    #"Переупорядоченные столбцы2" = Table.ReorderColumns(#"Дублированный столбец",{"Column1", "Column2", "Column3", "Атрибут.1", "Атрибут.2", "Копия Атрибут.2", "Значение"}),
    #"Извлеченный год1" = Table.TransformColumns(#"Переупорядоченные столбцы2",{{"Атрибут.2", Date.Year, Int64.Type}}),
    #"Извлеченный месяц" = Table.TransformColumns(#"Извлеченный год1",{{"Копия Атрибут.2", Date.Month, Int64.Type}}),
    #"Переименованные столбцы1" = Table.RenameColumns(#"Извлеченный месяц",{{"Атрибут.1", "Type"}, {"Атрибут.2", "Year"}, {"Копия Атрибут.2", "Month"}, {"Значение", "Value"}, {"Column1", "PhCh"}, {"Column2", "SKU"}, {"Column3", "Code"}})
in
    #"Переименованные столбцы1"

 If Not Sh_Exist(ActiveWorkbook, cPhChName + " source") Then
       ' ActiveWorkbook.Sheets.Add(, ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)).Name = "Новый лист"
       MsgBox ("лист не существует")
       Sheets("Chain Info (КАМ) (2)").Select
       Sheets("Chain Info (КАМ) (2)").Name = cPhChName + " source" '"Magnit source"
    Else
       MsgBox ("лист <" + cPhChName + " source" + "> существует. переименуйте!")  

Sub KAM_Template()
'
' KAM_Template Макрос
'

'
    Sheets("Chain Info (КАМ)").Select
    cPhChName = Range("E1").Value   ' = "Magnit"
    
    Sheets("Chain Info (КАМ)").Copy Before:=Sheets(12)
    
    'заменяем формулы на значения
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    '''''''''''''''''''''''''''''''''''
    
    Sheets("Chain Info (КАМ) (2)").Copy Before:=Sheets(13)
    
    'перед переименованием провести проверку названий Листов
    '    Sub Add_New_Sheet()
    If Not Sh_Exist(ActiveWorkbook, cPhChName + " source") Then
       ' ActiveWorkbook.Sheets.Add(, ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)).Name = "Новый лист"
       MsgBox ("лист не существует")
       Sheets("Chain Info (КАМ) (2)").Select
       Sheets("Chain Info (КАМ) (2)").Name = cPhChName + " source" '"Magnit source"
    Else
       MsgBox ("лист <" + cPhChName + " source" + "> существует. переименуйте!")
      ' Exit Sub
    ' End If
    ' End Sub
    If Not Sh_Exist(ActiveWorkbook, cPhChName + " changes") Then
       MsgBox ("лист не существует")
       Sheets("Chain Info (КАМ) (2)").Select
       Sheets("Chain Info (КАМ) (2)").Name = cPhChName + " changes" '"Magnit changes"
    Else
       MsgBox ("лист <" + cPhChName + " changes" + "> существует. переименуйте!")
       Exit Sub
    
     End If
    
    Range("H17").Select
    End Sub

'Функция проверки листов

Function Sh_Exist(wb As Workbook, sName As String) As Boolean
    Dim wsSh As Worksheet
    On Error Resume Next
    Set wsSh = wb.Sheets(sName)
    Sh_Exist = Not wsSh Is Nothing
End Function


Sub Macross_give_name()
'
' Macross_give_name Макрос
'

'
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Magnit"
    Range("E2").Select
    ActiveWorkbook.Save
    Sheets("Template source").Select
    Range("D1").Select
    Sheets("Template source").Select
    Sheets("Chain Info (КАМ)").Select
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Range("E1").Select
    Sheets("Template Difference").Select
    Range("H4").Select
End Sub