Range("C3").Replace What:="Дата экзамена: ", Replacement:=""
Range("C3").NumberFormat = "m/d/yyyy"
Range("C8:C11") = Range("C3").Value

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Y5")) Is Nothing Then
Call б_ОбновитьФильтры
End If
End Sub

ActiveWorkbook.VBProject.VBComponents.Import "C:\Users\" & CreateObject("WScript.Network").UserName & "\Google Диск\!Distrib\КодЛиста.cls"

Sub SavePDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & CreateObject("WScript.Network").UserName & "\Desktop\" & ActiveWorkbook.Name & ".pdf"
End Sub

  ActiveSheet.Range("W7").AutoFilter Field:=23, Criteria1:="< & Range("W7").Value", _

Range("A" & n & ":H" & n)
Range("A" & n + 1 & ":H" & n + 1)

Dim n%
    n = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A & n:H" & n).AutoFill Destination:=Range("A1185:H" & n + 1), Type:=xlFillDefault
End Sub

     Dim ws As Worksheet, x As Range, i As Long, j As Long, a(), b(), c()
    Application.ScreenUpdating = False: Set ws = Sheets("Статистика")
    If ActiveSheet.Name = ws.Name Then
        MsgBox "Активируйте лист с данными!": Exit Sub
    End If
    a = ws.Range(ws.[B2], ws.Cells(4, ws.Cells(4, ws.Columns.Count).End(xlToLeft).Column)).Value
    b = Range("C8:K" & Cells(Rows.Count, 3).End(xlUp).Row).Value
    ReDim c(1 To 1, 1 To UBound(a, 2))
    For i = 1 To UBound(a, 2) Step 3: a(3, i) = a(1, i) & "|" & a(2, i): Next
    For i = 1 To UBound(b, 1): b(i, UBound(b, 2)) = b(i, 1) & "|" & b(i, 2): Next
    For i = 1 To UBound(a, 2) Step 3
        For j = 1 To UBound(b, 1)
            If a(3, i) = b(j, UBound(b, 2)) Then
                c(1, i) = b(j, 8): c(1, i + 1) = b(j, 7): c(1, i + 2) = b(j, 3): Exit For
    End If: Next: Next
    Set x = ws.[A:A].Find(CDate([B4]))
    If x Is Nothing Then
        i = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1: ws.Cells(i, 1) = CDate([B4])
    Else: i = x.Row
    End If
    ws.Cells(i, 2).Resize(, UBound(c, 2)).Value = c: ws.Rows(i).Replace "-", "", xlWhole