---

Sub FilterAboveAverage()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 1. Сбрасываем прошлый автофильтр (если он включен), чтобы избежать конфликтов
    If ws.AutoFilterMode Then
        ws.AutoFilterMode = False
    End If
    
    ' 2. Включаем чистый фильтр "Выше среднего" строго по вашей таблице (9-21 строки)
    ' Field:=4 — это четвертая колонка внутри диапазона (Рейтинг-балл)
    ws.Range("A9:E21").AutoFilter Field:=4, Criteria1:=xlFilterAboveAverage, Operator:=xlFilterDynamic
End Sub