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

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

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

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

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

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

Function x(R As Range) As Range
    Dim R1 As Range
    Set x = R
    With Application: .ScreenUpdating = 0: .EnableEvents = 0
    With Application.Caller
        On Error GoTo er
        Set R1 = ['Сусло '!F:F].Find(.Value, , xlValues, xlPart)
        .Hyperlinks.Delete
        .Hyperlinks.Add .Cells, "", R1.Address(, , , 1)
    End With
er: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Function

.Paste

.Parent.Select

Debug.Print ThisWorkbook.VBASigned

Sub del()
    Dim uRng, lRows
    With ActiveSheet
        Set uRng = .UsedRange
        lRows = uRng.Rows.Count - 8 + uRng.Row
        .[cd8].MergeArea.Resize(lRows).Value = Empty
    End With
End Sub

var n=sheet.getLastRow()+1

Sub SaveActiveSheet4() 'Процедура сохранения

    Dim NewFileName
    
    On Error Resume Next
    If ActiveSheet Is Nothing Then Exit Sub
    NewFileName = GetNewFileName4
    If NewFileName <> "" Then ActiveSheet.ExportAsFixedFormat 0, NewFileName

End Sub

=ГИПЕРССЫЛКА("https://yandex.ru/maps/?text="&ПОДСТАВИТЬ(G2;",";".")&"%C2%B0N%20"&ПОДСТАВИТЬ(H2;",";".")&"%C2%B0E&sll="&ПОДСТАВИТЬ(H2;",";".")&","&ПОДСТАВИТЬ(G2;",";".")&"&source=wizgeo&utm_source=serp&l=map&utm_medium=maps-desktop";"Yandex карта")