Function TBO(cel As Range, num_vhoda As Range, usmin As Integer, usmax As Integer)
Application.Volatile
Dim ax()
'ошибка начало?????????????????????
With cel.Parent
    y = .Cells(cel.Row, cel.Column).Column
    i = .Cells(cel.Row, cel.Column).Row
    h = .Cells(.Rows.Count, y).End(xlUp).Row
    arr = Application.Transpose(.Range(.Cells(i, y), .Cells(h, y))) 'операция транспорта в одномерный массив
End With
'ошибка конец?????????????????????

Min = usmin
Max = usmax
l = LBound(arr)
h = UBound(arr)
'============================= удаляются занчения из массива не подходящие под условия
For i = 1 To h
    If arr(i) > Min And arr(i) < Max Then
         N = N + 1
        ReDim Preserve ax(N) ' Preserve переопределение с сохр всех значений
        ax(N) = arr(i)
    End If
Next i
arr = ax
'====================== сортировка
First = LBound(arr)
h = UBound(arr)
For i = First To h - 1
    For j = i + 1 To h
        If arr(i) > arr(j) Then
            Temp = arr(j)
            arr(j) = arr(i)
            arr(i) = Temp
        End If
    Next j
Next i
isk = num_vhoda.Parent.Cells(num_vhoda.Row, num_vhoda.Column).Row   'и тут тоже
On Error GoTo Err_SomeName
   TBO = arr(isk)
Exit_SomeName:
     Exit Function
Err_SomeName:
    TBO = 0
Resume Exit_SomeName

End Function