=СУММ(Ч(СЧЁТЕСЛИМН(B:B;B3:B15;C:C;">"&C3:C15)<Ч(C3:C15<F2)))

=СМЕЩ(B$1;НАИБОЛЬШИЙ((СЧЁТЕСЛИМН(B:B;B$3:B$15;C:C;">"&C$3:C$15)<Ч(C$3:C$15<F$2))*СТРОКА(C$3:C$15)-1;СТРОКА(E1));)

=СЧЁТЕСЛИМН(B:B;B3;C:C;">"&C3)<Ч(C3<F$2)

Private Sub Workbook_Activate()
    If ActiveSheet Is Sheets("Лист1") Then Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_Deactivate()
    Application.MoveAfterReturnDirection = xlDown
End Sub

Private Sub Worksheet_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Worksheet_Deactivate()
    Application.MoveAfterReturnDirection = xlDown
End Sub

=СРЗНАЧ(ЕСЛИОШИБКА(ПРОСМОТР(КОНМЕСЯЦА(F2;-1)+СТРОКА(A1:ИНДЕКС(A:A;ДЕНЬ(КОНМЕСЯЦА(F2;0))));F2:F19;G2:G19);))

=СРЗНАЧ(ЕСЛИОШИБКА(ПРОСМОТР(КОНМЕСЯЦА(F2;-1)+СТРОКА(A1:ИНДЕКС(A:A;ДЕНЬ(КОНМЕСЯЦА(F2;0))));F2:F19;G2:G19);H2))

--Таблица4[Дата]

=ЕСЛИ(G$4=H$4;СУММПРОИЗВ((0&Таблица2[[Вес материала на весовой, т.]:[Вес материала на весовой, т.]])*(Таблица2[[Поставщик]:[Поставщик]]=$C8)*(Таблица2[[Дата]:[Дата]]=G$4)*(Таблица2[[Номенклатура]:[Номенклатура]]=$B8));СУММПРОИЗВ(Таблица4[[Общее кол-во]:[Общее кол-во]]*(Таблица4[[Наименование]:[Наименование]]=$B8)*(--Таблица4[[Дата]:[Дата]]=G$4)))

Sub FillEmtyCells()
    With ActiveSheet.UsedRange
        .SpecialCells(4).FormulaR1C1 = "=R[-1]C"
        .Formula = .Value
    End With
End Sub

Sub export2()
    Dim rng
    With CreateObject("Word.Application")
        .Visible = True
        With .Documents.Add.Sections(1).Headers(1)
            With .Range.document.tables.Add(Range:=.Range, NumRows:=3, _
                NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, _
                AutoFitBehavior:=wdAutoFitFixed)
                Set rng = .Cell(2, 2).Range
                rng.End = .Cell(2, 3).Range.End
                rng.Cells.Merge
            End With
        End With
        .Activate
    End With
End Sub

Sub dd()
    Dim col As Range, ar As Range
    With Application: .EnableEvents = 0: .ScreenUpdating = 0
    For Each col In [A8:F27].Columns
        With col.SpecialCells(xlCellTypeConstants, 23)
            For Each ar In .ColumnDifferences(.Cells(1)).Areas
                ar.EntireRow.Group
            Next
        End With
    Next
    .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub

Sub ddd()
    With Application: .EnableEvents = 0: .ScreenUpdating = 0
    With ActiveSheet
        With .Outline
            .AutomaticStyles = False
            .SummaryRow = xlAbove
            .SummaryColumn = xlRight
        End With
        .Cells.Replace "Итого", "=all1", 1
        With [all1].Dependents
            .Value = "Итого"
            For Each col In .Cells(1, 1).Resize(Rows.Count - .Row, _
                Intersect(.EntireColumn, .EntireRow).Columns.Count).Columns
                With col.SpecialCells(xlCellTypeConstants, 23)
                    For Each ar In .ColumnDifferences(.Cells(1)).Areas
                        ar.EntireRow.Group
                    Next
                End With
            Next
        End With
    End With
    .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub