Sub Макрос1()
'
' Макрос1 Макрос


Application.ScreenUpdating = False
Application.DisplayAlerts = False

    Sheets("0_Report").Range("A1:F" & Cells(Rows.Count, "A").End(xlUp).Row).Clear
    Sheets("0_Report").Cells.Delete Shift:=xlUp
    Workbooks.Open Filename:="E:\333\333\report.xls"
    Workbooks("report.xls").Sheets("0_Report").Range("A1:C" & Cells(Rows.Count, "A").End(xlUp).Row).Copy ThisWorkbook.Sheets("0_Report").Range("A1")
    Workbooks("report.xls").Close False
    Sheets("0_Report").Select
    
    Range("A1:F9").UnMerge
    Range("A10:C" & Cells(Rows.Count, "A").End(xlUp).Row).Cut
    Range("A1").Select
    ActiveSheet.Paste
    Worksheets("0_Report").ListObjects.Add(xlSrcRange, Range("$A$1:$C$" & Cells(Rows.Count, "A").End(xlUp).Row), , xlYes).Name = _
        "Таблица2"
'    .ListObjects("Таблица2").TableStyle = "TableStyleLight1"
'    .ListObjects("Таблица2").Range.AutoFilter Field:=3, Criteria1:= _
'        "=ст. 93 ч. 1 п. 14", Operator:=xlOr, Criteria2:="="
'    .Range("D3:D" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
'    .ListObjects("Таблица2").Range.AutoFilter Field:=3
    Range("Таблица2[#Headers]").Interior.ColorIndex = xlNone
    Columns("A:C").ColumnWidth = 20
    Cells.EntireRow.AutoFit
    Range("A1").Select


Sheets("Лист1").Select

Set Sheet = ActiveSheet
    For Each Row In Sheet.UsedRange.Rows
        If Row.Cells(3) Like "ДА" Then Row.Cells(4).Offset(0).FormulaR1C1 = "=SUMIFS('0_Report'!R3C3:R100C3,'0_Report'!R3C1:R100C1,[@дата],'0_Report'!R3C2:R100C2,[@Сумма])"
Next

Range("Таблица1[Исполнение]").Copy
Range("Таблица1[Исполнение]").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  Application.CutCopyMode = False

'Возвращаем обновление экрана
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Worksheets("РАСЧЕТ").Cells(i, 2)

Sub Расклад_по_классам()
Dim LastRow As Long, Rw As Long
LastRow = Worksheets("РАСЧЕТ").Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("Лист1")
        Rw = .Cells(Rows.Count, 5).End(xlUp).Row + 1
        For i = 2 To LastRow
             If Worksheets("РАСЧЕТ").Cells(i, 1) = "1А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "1Б" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "2А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "2Б" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "3А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "3Б" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "4А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "4Б" Then
                .Cells(Rw, 5).Value = Cells(i, 2)
                Rw = Rw + 1
            End If
        Next
          Rw = .Cells(Rows.Count, 8).End(xlUp).Row + 1
        For i = 2 To LastRow
             If Worksheets("РАСЧЕТ").Cells(i, 1) = "5А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "5Б" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "6А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "6Б" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "7А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "7Б" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "8А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "8Б" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "9А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "9Б" Then
                .Cells(Rw, 8).Value = Cells(i, 2)
                Rw = Rw + 1
            End If
        Next
         Rw = .Cells(Rows.Count, 11).End(xlUp).Row + 1
        For i = 2 To LastRow
             If Worksheets("РАСЧЕТ").Cells(i, 1) = "10А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "10Б" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "11А" Or _
             Worksheets("РАСЧЕТ").Cells(i, 1) = "11Б" Then
                .Cells(Rw, 11).Value = Cells(i, 2)
                Rw = Rw + 1
            End If
        Next
    End With
End Sub 

ActiveWorkbook.Close False 'Закроет активную книгу без сохранения   

Name = ActiveWorkbook.Path & "\" & Replace(Otchet_ & ActiveWorkbook.Name, ".xlsx", ".csv")