Function zapoln(table As Range, num_st As Integer, num_vhoda As Range, usmin As Integer, usmax As Integer)
Application.Volatile
Dim ax()
   
Set arr = table

Min = usmin
Max = usmax
s = num_st
With table.Parent
   h = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 'количество элементов массива

For i = 1 To h
    If arr(i, s) > Min And arr(i, s) < Max Then
         n = n + 1
        ReDim Preserve ax(n)  ' Preserve переопределение с сохр всех значений
        ax(n) = arr(i, 1)
    End If
Next i
arr = ax

isk = num_vhoda.Row
On Error GoTo Err_SomeName
   zapoln = arr(isk)
Exit_SomeName:
     Exit Function
Err_SomeName:
    zapoln = 0
Resume Exit_SomeName

End Function