Seems to be sufficient:

Sub StatTest()
    Range("F132:F146").NumberFormat = "0%"
    
    With Workbooks("Book1.xlsm").Sheets("Sheet1").Cells(1).CurrentRegion.Resize(, 10)
         .AutoFilter 6, ">=" & [Max(F132:F146)] - 0.1, xlAnd, "<=" & [Max(F132:F146)] + 0.05
    End With
End Sub