Sub Образец()
    Range("I9").FormulaR1C1 = _
        "=SUMIF(R4C2:R4C[-1],""<=""&R2C1,Таблица1[@[01.04.2021]:[07.04.2021]])"
End Sub

Sub Расчёт()

    Range("F" & Rows.Count).End(xlUp).Offset(2, 2).Select
    Selection.FormulaR1C1 = "=SUMIF(R14C4:R24C4,RC4,R14C:R24C)"
    Range("F" & Rows.Count).End(xlUp).Offset(2, 2).Select
    Selection.Copy
    Selection.Resize(Selection.Rows.Count + 8, _
    Selection.Columns.Count + 6).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Sub Сортировка()

    Range("A" & Rows.Count).End(xlUp).Offset(2, 1).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Лист1").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").sort.SortFields.Add Key:=Range( _
        "B6:B59"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").sort
        .SetRange Range("B6:B59")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

     Range("F" & Rows.Count).End(xlUp).Offset(1, -2).Select
     Range(Selection, Selection.End(xlDown)).Select