=СРЗНАЧA(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)))

=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))

=СРЗНАЧА(E6:ИНДЕКС(E$1:ИНДЕКС(E:E;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:ИНДЕКС(A:A;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);)))

=СУММПРОИЗВ(($A$5:$A109=A109+1-СТОЛБЕЦ($A1:ИНДЕКС(1:1;A109)))*Ч(+E$5:E109))/A109

Sub Macro1()
    With ActiveDocument
        .ShowGrammaticalErrors = False
        .ShowSpellingErrors = False
        .GrammarChecked = True
        .Saved = True
    End With
End Sub

Sub Macro1()
    With ActiveDocument
        .ShowGrammaticalErrors = False
        .ShowSpellingErrors = False
        .Saved = True
    End With
End Sub

=ArrayFormula(REGEXREPLACE(TRANSPOSE(SPLIT(TEXTJOIN(", ";1;IF(COLUMN(A1:I10)=1;"|";"")&A1:I10);"|"));"^, |, $";))

=ЕСЛИОШИБКА(СРЗНАЧ(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)));"Н/Д")

=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))

Private Sub Worksheet_Change(ByVal Target As Range)
    With Me.Rows("10:50").Columns("B")
        If Intersect(Target, .Cells) Is Nothing Then Exit Sub
        .EntireRow.Hidden = 0
        Intersect(.Cells, .SpecialCells(4).Offset(1)).EntireRow.Hidden = 1
    End With
End Sub

=ArrayFormula(join(", ";filter(unique(A1:I10);unique(A1:I10)>"")))

Private WithEvents cb As CommandButton
Private cell As Range
Public Sub Init(ctrl As CommandButton, r As Range)
    Set cb = ctrl
    Set cell = r
End Sub
Private Sub Class_Terminate()
    Set cb = Nothing
    Set cell = Nothing
End Sub
Private Sub cb_Click()
    cell = cell.Value & cb.Caption
End Sub

Dim colButtons As Collection
Sub hookButtons(ws As Object)
    Dim dBtn As ClDigitalButtons
    Dim obj As OLEObject
    Set colButtons = New Collection
    For Each obj In ws.OLEObjects
        If TypeOf obj.Object Is CommandButton And Left(obj.Name, 5) = "Digit" Then
            Set dBtn = New ClDigitalButtons
            dBtn.Init obj.Object, ws.[B1]
            colButtons.Add dBtn
        End If
    Next
End Sub

Private Sub Workbook_Open()
    hookButtons ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    hookButtons Sh
End Sub

=B$1*A1/СУММ(A:A)

=ИНДЕКС(A:A;ПОИСКПОЗ(ПРОСМОТР(ОСТАТ(ОТБР(A1*24);24);{0:7:15:23};{1:2:3:1});ИНДЕКС(1:10;;ПОИСКПОЗ(ОТБР(A1);2:2));))

=hyperlink("http://www.excelworld.ru";image("http://www.excelworld.ru/Ribbon/images/MicrosoftExcel.png"))

Private ver%
Function МЕТЦБР2#(Optional Code% = 2, Optional dDate As Date)
    Dim d As Object, ddate1 As Date, elem As Object:
    Set d = CreateObject("msxml2.domdocument." & MSXMLVersion & ".0")
    dDate = IIf(dDate, dDate, Date): ddate1 = Application.EDate(dDate, -1): d.async = 0
    d.Load ("https://www.cbr.ru/scripts/xml_metall.asp?date_req1=" & ddate1 & "&date_req2=" & dDate)
    Select Case ver
        Case Is > 3 'Установлен MSXML >= 4.0, используем XPath функцию last()
            МЕТЦБР2 = CDbl(d.SelectSingleNode("*/Record[@Code='" & Code & "'][last()]/Buy").Text)
        Case Else   'иначе используем IXMLDOMNodeList
            Set elem = d.SelectNodes("*/Record[@Code='" & Code & "']/Buy")
            МЕТЦБР2 = CDbl(elem(elem.Length - 1).Text)
    End Select
    Set d = Nothing
End Function
Private Function MSXMLVersion%()
    Dim arrVersions()
    If ver > 0 Then MSXMLVersion = ver: Exit Function
    With GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
        .EnumValues 2 ^ 31, "CLSID\{2933BF90-7B36-11D2-B20E-00C04F983E60}\VersionList\", arrVersions
    End With
    'номер старшей версии MSXML, установленной в системе
    MSXMLVersion = Split(arrVersions(0), ".")(0)
    ver = MSXMLVersion
End Function

wd.Bookmarks("pismo55").Range.Text = [A1].Value