=ИНДЕКС(6:6;НАИМЕНЬШИЙ(ЕСЛИОШИБКА(СТОЛБЕЦ($C6:$AD6)/(ПОИСК($J$11:$J$12;$C6:$AD6)=1);"");ОТБР(СТОЛБЕЦ(G14)/7))+ОСТАТ(СТОЛБЕЦ(G14);7))

Sub asd()
    Const dRh# = 15.75
    Dim rRow As Range, r As Range, r1 As Range
    
    With ActiveSheet.UsedRange
        .Interior.Color = xlNone
        For Each rRow In .Rows
            Select Case True
                Case rRow.RowHeight >= dRh
                    If r Is Nothing Then
                        Set r = rRow
                    Else
                        Set r = Union(r, rRow)
                    End If
                Case rRow.RowHeight < dRh
                    If r1 Is Nothing Then
                        Set r1 = rRow
                    Else
                        Set r1 = Union(r1, rRow)
                    End If
            End Select
        Next
    End With
    r.Rows.Interior.Color = vbRed
    r1.Rows.Interior.Color = vbGreen
    
End Sub

=ВПР(AI11;НАРЯД2!B16:I32;8;)

СТОЛБЕЦ(G14)=7

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Sh As Worksheet
    For Each Sh In Me.Windows(1).SelectedSheets
        Sh.PageSetup.CenterFooter = "Страница  &P из " & Sh.HPageBreaks.Count + 1
    Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.PageSetup.CenterFooter = "Страница  &P из &N"
End Sub

=ИНДЕКС(Таблица2;ЯЧЕЙКА("строка")-СТРОКА(Таблица2)+1;1)

=ТРАНСП(ИНДЕКС(Таблица1[[Адрес склада]:[Телефон]];ПОИСКПОЗ(B9;Таблица1[Название организации];);))

=ИНДЕКС(Таблица2;ЯЧЕЙКА("row")-СТРОКА(Таблица2)+1;ОКРВВЕРХ(ЯЧЕЙКА("col")-1;3))

=ИНДЕКС(Таблица2;ЯЧЕЙКА("row")-СТРОКА(Таблица2)+1;ОКРВВЕРХ(ЯЧЕЙКА("col")-1;3)+1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [Таблица2]) Is Nothing And Target.Count = 1 Then
        Cells(Rows.Count, 1).End(xlUp).Offset(-7, 1).Resize(8).Calculate
    End If
End Sub

получить.ячейку(28)

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Транспонированная таблица" = Table.Transpose(Источник),
    #"Заполнение вниз" = Table.FillDown(#"Транспонированная таблица",{"Column1"}),
    #"Объединенные столбцы" = Table.CombineColumns(#"Заполнение вниз",{"Column1", "Column2"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None)," "),
    #"Очищенный текст" = Table.TransformColumns(#"Объединенные столбцы",{{" ", Text.Trim, type text}}),
    #"Транспонированная таблица1" = Table.Transpose(#"Очищенный текст"),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Транспонированная таблица1", [PromoteAllScalars=true]),
    #"Добавлен индекс" = Table.AddIndexColumn(#"Повышенные заголовки", "Индекс", 0, 1),
    #"Сгруппированные строки1" = Table.Group(#"Добавлен индекс", {"Level"}, {{"tab", each _, type table}}),
    #"Сведенный столбец" = Table.Pivot(Table.TransformColumnTypes(#"Сгруппированные строки1", {{"Level", type text}}, "ru-RU"), List.Distinct(Table.TransformColumnTypes(#"Сгруппированные строки1", {{"Level", type text}}, "ru-RU")[Level]), "Level", "tab"),
    fn=(a as table, b as any,c as text,d as text, f as any,optional e as list) as table =>let
        g = Table.AddIndexColumn(a, "Индекс", 0, 1),
        h=Table.AddColumn(g, b&"+1",each try Record.Field(g{[Индекс]+1},b) otherwise null) ,
        i=Table.ColumnNames(Record.Field(g{0},d)){0},
        e=if e is null then {i,"Индекс"} else e,
        f=List.ReplaceValue(List.ReplaceValue(e, i, f, Replacer.ReplaceText), "Индекс", c, Replacer.ReplaceText),
        j=Table.ExpandTableColumn(h, d, e, f),
        k=b&"+1",
        l=try Table.SelectRows(j, each (Record.Field(_,c) > Record.Field(_,b) ) and (if Record.Field(_,k)  is null then true else Record.Field(_,k)>Record.Field(_,c))) otherwise j
    in Table.RemoveColumns(if b<>"" then l else j,List.RemoveItems({b,"Индекс",k},{""})),    
    expand=fn(fn(fn(#"Сведенный столбец","","i1","2","Категория"),"i1","i2","3","Производитель"),"i2","i3","4","Модель"),
    expand1=fn(expand,"i3","i4","5","Размер",Table.ColumnNames(#"Сведенный столбец"{0}[1])),
    result=Table.RemoveColumns(expand1,{"1","Level","i4"})
in
    result

Function GetBetweenREXP(s$, strt_$, Optional end_$ = "") As Variant
    Dim subStr$(), i&
    end_ = IIf(end_ = "", "\1", end_)
    With CreateObject("vbscript.regexp")
        .Global = 1: .MultiLine = 1: .ignorecase = 1
        .Pattern = "(?:(" & strt_ & ")(\s*))([\S\s]*?)(?=\2*" & end_ & "|\z)"
        If Not .test(s) Then Exit Function
        For Each m In .Execute(s)
            ReDim Preserve subStr(i)
            subStr(i) = m.submatches(2)
            i = i + 1
        Next
    End With
    GetBetweenREXP = subStr
End Function

(?:(пример)(\s*))([\S\s]*?)(?=\2*\1|\z)

(?:пример\s*)([\S\s]*?)(?=\s*пример|\z)

(?:(1группа(2группа))(3группа))(4группа(?:)(5группа))

SubMatches(0)=1группа2группа
SubMatches(1)=2группа
SubMatches(2)=3группа

Function rr$(s$)
    On Error GoTo err
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "(\s*[AÀ][0-9]{1,2}\S*?[,+])"
        If Not .test(s) Then Exit Function
        rr = .Replace(s, "")
    End With
    Exit Function
err: rr = "Error " & err
End Function

    With Range("Таблица1").ListObject
        .Resize .HeaderRowRange.Resize(i)
    End With

=ЗАМЕНИТЬ(A1;7;;",")

Sub Макрос1()
    Dim shps As Shapes, shp As Shape
    Dim i As Long, x1, x2, y1, y2
    Set shps = ActiveSheet.Shapes
    Set shp = ActiveSheet.Shapes([k3])
    x2 = shp.Left + shp.Width / 2
    y2 = shp.Top + shp.Height / 2
    For i = 1 To shps.Count
        With shps(i)
            If Not (Intersect(.TopLeftCell, [B4:S45]) Is Nothing Or Intersect(.BottomRightCell, [B4:S45]) Is Nothing) Then
            x1 = .Left + .Width / 2
            y1 = .Top + .Height / 2
            .Fill.Transparency = -(((x2 - x1) ^ 2 + (y2 - y1) ^ 2) ^ 0.5 > 100)
            .Line.Transparency = .Fill.Transparency
            If .Type = msoPicture Then .Visible = .Fill.Transparency = 0
            End If
        End With
    Next i
End Sub