Sub fltr()

    ActiveWorkbook.Worksheets(1).Activate
    
    Set tbl = [a1].CurrentRegion
    Set tbl = tbl.Offset(1).Resize(tbl.Rows.Count - 1)
    tbl.AutoFilter Field:=4, Criteria1:="дефектура"
    tbl.AutoFilter Field:=3, Criteria1:="Автомат"
    Err.Clear
    On Error Resume Next
    cnt = tbl.Columns(3).SpecialCells(xlCellTypeVisible).Count
    errnum = Err.Number
    On Error GoTo 0
    If errnum > 0 Then tbl.AutoFilter Field:=3
    
End Sub

Sub fltr()

    ActiveWorkbook.Worksheets(1).Activate
    
    Set tbl = [a1].CurrentRegion
    tbl.AutoFilter Field:=4, Criteria1:="дефектура"
    tbl.AutoFilter Field:=3, Criteria1:="Автомат"
    If tbl.Offset(1).Columns(3).SpecialCells(xlCellTypeVisible).Count = 1 Then tbl.AutoFilter Field:=3
    
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Sheets("Лист2").Range("C4")) Is Nothing Then
        Sheets("Лист1").CommandButton1.Caption = Target ' Лист1 - это лист, где ваша кнопка расположена
    End If
End Sub

=СУММ(ЕСЛИ(ЕНД(Ф.ТЕКСТ(A2:A8));A2:A8))

=СУММПРОИЗВ(ЕНД(Ф.ТЕКСТ(A2:A8))*A2:A8)

Sub Обновить_сводную()

Dim Sht As Worksheet, Shs As Worksheet
Dim Wb As Workbook
Dim i As Long
Dim iLastRow_B As Long
Dim iLastRow_Ai As Long
 
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    .Calculation = xlCalculationManual
     
    Set Wb = ThisWorkbook
    Set Shs = Wb.Sheets("Сводная")
    Shs.Cells.Clear 'очищаем лист "Сводная"
    Shs.Range("A1:Z1") = Array("Оценка", "ФИО сотрудника", "Старший", "Группа", "Дата оценки", _
        "Номер звонка", "Пометка на звонок", "Проф. Навыки", "Навыки ведения диалога", "Общая оценка за звонок", _
        "Тематика (1 уровень)", "Тематика (2 уровень)""Тематика (3 уровень)""Основная зона роста (1-ый уровень)", _
        "Основная зона роста (2-ый уровень)", "Доп. зона роста (1-ый уровень)", "Доп. зона роста (2-ый уровень)", _
        "Вес нарушения Основной зоны", "Вес нарушения доп. Зоны", "ст", "Неделя", "Месяц", "Год", _
        "Ошибка", "Отдел", "Кодировка")
    
    For Each nm In Array("Лист1", "Лист2")
        Set Sht = Wb.Sheets(nm)
        iLastRow_B = Shs.Cells(Rows.Count, 2).End(xlUp).Row
        iLastRow_Ai = Sht.Cells(Rows.Count, 1).End(xlUp).Row
        Sht.Range("A2:Z" & iLastRow_Ai).Copy Shs.Cells(iLastRow_B + 1, 1)
    Next
         
    .ScreenUpdating = True
    .DisplayAlerts = True
    .Calculation = xlCalculationAutomatic

End With

End Sub

=ОСТАТ(СЛУЧМЕЖДУ(1;10+15)-1;10)+1

Sub testDel()
    With Sheets("Лист1") ' это лист, где работать, все, что начинается с . - относится к нему
        numStartRow = Sheets("Лист3").[B1] ' это ячейка, где указан начальный номер строки листа, где работать :)
        numEndRow = 195
        If numStartRow > 0 And numStartRow <= numEndRow Then
            Range(.Cells(numStartRow, 1), .Cells(numEndRow, 1)).EntireRow.Delete
        End If
    End With
End Sub

Sub testDel()
    With ActiveSheet
        numStartRow = .[a1]
        numEndRow = 19
        If numStartRow > 0 And numStartRow <= numEndRow Then
            Range(.Cells(numStartRow, 1), .Cells(numEndRow, 1)).EntireRow.Delete
        End If
    End With
End Sub

qql.qql3 = ActiveSheet