=СРЗНАЧ(ИНДЕКС(A3:M3;НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(C3:M3);СТОЛБЕЦ(C3:M3);"");СТОЛБЕЦ(A1:D1))))

let
    from = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    index = Table.AddIndexColumn(from, "i", 1, 1, Int64.Type),
    f=(t)=>Table.TransformColumns(Table.AddIndexColumn(t,"uniq",1,1),{"uniq", each if _=1 then 1 else 0}),
    group = Table.Group(index, "Key", {"tmp", each f(_)}),
    tbl = Table.Combine(group[tmp]),
    to = Table.RemoveColumns(Table.Sort(tbl,{"i", Order.Descending}),"i")
in
    to

let
    from = List.Buffer(Excel.CurrentWorkbook(){[Name="Table1"]}[Content][Key]),
    to = List.Generate( ()=>[i=0,p=from{i},s=1],
                        each [i]<List.Count(from),
                        each [i=[i]+1,p=from{i},s=if p=[p] then 0 else 1],
                        each [s])
in
   to

Столбец =
VAR g = [Column1]
VAR s = [Column2]
RETURN
    SUMX (
        FILTER (
            'Лист1',
            'Лист1'[Column1] = g
                && 'Лист1'[Column2] = s
        ),
        [Column3]
    )

Столбец 2 =
CALCULATE (
    SUM ( [Column3] ),
    ALLEXCEPT (
        'Лист1',
        'Лист1'[Column1],
        'Лист1'[Column2]
    )
)

Table.Combine(Table.SelectRows(Excel.CurrentWorkbook(), each Text.Contains([Name], "Таблица"))[Content])

 Sub Макрос1()
    [E13].CurrentRegion.Clear
    Range("Таблица1[[#Headers]]").Copy [E13]
    Range("Таблица1").Copy [E13].Offset(1, 0)
    Range("Таблица2").Copy [E13].End(xlDown).Offset(1, 0)
End Sub

let
    from0 = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    from1= Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    to = Table.Combine({from0,from1})
in
    to

let
    f=(t)=> Excel.CurrentWorkbook(){[Name=t]}[Content],
    to = Table.Combine({f("Таблица1"),f("Таблица2")})
in
    to

Sub Макрос1()
    Range("Таблица1[[#Headers]]").Copy [E13]
    Range("Таблица1").Copy [E13].Offset(1, 0)
    Range("Таблица2").Copy [E13].End(xlDown).Offset(1, 0)
End Sub

=ПЕЧСИМВ(A1)

=ПОДСТАВИТЬ(A1;СИМВОЛ(9);"")

=ЕСЛИ(ЕПУСТО(C4);"";ЕСЛИ(ЕПУСТО(C3)+(C3="Данные");1;D3+1))

 =ЕСЛИ(C2;ЕСЛИ(ИЛИ(И(A2+D2<C2+G2;A2+E2+(D2>E2)<C2+G2);И(A2+D2>C2+H2+(G2>H2);A2+E2+(D2>E2)>C2+H2+(G2>H2)));"не ";"")&"своевременно";"нет даты и времени приемки")

 =LET(a;A2+D2;b;A2+E2+(D2>E2);c;C2+G2;d;C2+H2+(G2>H2);ЕСЛИ(C2;ЕСЛИ(ИЛИ(И(a<c;b<c);И(a>d;b>d));"не ";"")&"своевременно";"нет даты и времени приемки"))

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    f=(r)=>List.Accumulate(List.Range(Record.FieldValues(r),2,12),0,(s,c)=>if c > 0.15 then s+1 else s),
    to = Table.AddColumn(from, "count", f)
in
    to

qОбщаяТаблица=Table.Buffer(ваш_код) //забуферить, чтобы не было повторного пересчета

Unique =List.Distinct(qОбщаяТаблица[Город]) //на списках быстрее чем на таблицах

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then Me.Name = "Акт сверки " & [A1]
End Sub