Picture 1  Центр по горизонтали: 444    Нижняя граница:     364,5
Рисунок 9  Центр по горизонтали: 442,5  Нижняя граница:     371,25
Oval 2     Центр по горизонтали: 440,25 Центр по вертикали: 364,5

With Selection.ParagraphFormat
    .CharacterUnitLeftIndent = .CharacterUnitLeftIndent + 1
    .LeftIndent = 0
End With

With Selection.ParagraphFormat
    .CharacterUnitRightIndent = .CharacterUnitRightIndent + 1
    .RightIndent = 0
End With

let
    Source  = Table.SelectRows(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][[Строка 1],[Строка 2]], each ([Строка 1] <> null)),
    Group   = Table.Group(Source, {"Строка 1"}, {{"_", each Table.Distinct(_), type table}}),
    Split   = Table.SplitColumn(Group, "Строка 1", Splitter.SplitTextByAnyDelimiter({"за ","на "}, QuoteStyle.Csv), {"Строка 1.1", "Строка 1.2"}),
    Indexed = Table.TransformColumns(Table.AddIndexColumn(Split, "Индекс", 0), {"Индекс", each Number.IntegerDivide(_, 2)}),
    Pivoted = Table.Pivot(Indexed , List.Distinct(Indexed[#"Строка 1.1"]), "Строка 1.1", "_",each _{0}?{0}?[Строка 2]?),
    Sorted  = Table.Sort(Pivoted,"Индекс")
in
    Sorted

=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;D11:D14)*5000

=АГРЕГАТ(9;5;D11:D14)*5000

=СУММ(БИТ.СДВИГЛ(ВЫБОР({1;2;3;4};НЕ(СЧЁТЕСЛИМН([Объект];[@Объект];[Деталька А];"<>"));СЧЁТЕСЛИ([Объект];"<"&[@Объект]);СЧЁТЕСЛИ([№];"<"&[@№]);СЧЁТЕСЛИ([Слот];"<"&[@Слот]));8*{3;2;1;0}))

GET.DOCUMENT(45)

GET.DOCUMENT(46)

[книга.xlsx]Лист1

Public Function ВсегоСтраниц()
    ВсегоСтраниц = Application.Caller.Worksheet.PageSetup.Pages.Count
End Function

=ЕСЛИОШИБКА(СУММ(МАКС((F$2:F$9=A2)*(B2>=G$2:G$9)*(B2<=H$2:H$9)*I$2:I$9)^{0;1};-1);"")

=СУММПРОИЗВ(ВПР(Т(ИНДЕКС(+ПСТР(ПРОПИСН(СЖПРОБЕЛЫ(N3));СТРОКА(N$1:ИНДЕКС(N:N;ДЛСТР(СЖПРОБЕЛЫ(N3))));1);));{"а";1:"б";2:"в";3:"г";4:"д";5:"е";6:"ё";7:"ж";8:"з";9:"и";1:"й";2:"к";3:"л";4:"м";5:"н";6:"о";7:"п";8:"р";9:"с";1:"т";2:"у";3:"ф";4:"х";5:"ц";6:"ч";7:"ш";8:"щ";9:"ъ";1:"ы";2:"ь";3:"э";4:"ю";5:"я";6};2;);10^(ДЛСТР(СЖПРОБЕЛЫ(N3))-СТРОКА(N$1:ИНДЕКС(N:N;ДЛСТР(СЖПРОБЕЛЫ(N3))))))

=ВПР(C2;{0;1:1;2:4;4};2)

=ЕСЛИОШИБКА(40+ПОИСКПОЗ(1;ТЕКСТ(ТЕКСТ(КОНМЕСЯЦА(B2;СТРОКА($5:$10)*120-1)+1;"[>="&C2&"]0;");"[<="&D2&"]0;")^0;)*10;"")

Sub x()
    Dim c As Range
    With Selection.Font
        .Bold = 0
        .Underline = xlNone
        For Each c In .Parent
            Dim pos%: pos = InStr(c.Value, "Наши услуги")
            If pos > 0 Then
                With c.Characters(pos, Len(c.value)).Font
                    .Bold = 1
                    .Underline = xlUnderlineStyleSingle
                End With
            End If
        Next
    End With
End Sub