Public Function Opt(RR As Range, N As Long) As Variant
    Dim A() As Long
    ReDim A(1 To RR.Rows.Count)
    For Each R In RR
        Found = False
        For i = 1 To Counter
            If R.Value = A(i) Then
                Found = True
                Exit For
            End If
        Next i
        If Not Found Then
            Counter = Counter + 1
            A(Counter) = R.Value
        End If
    Next R
    
    l = 1
    
    For i = (l + 1) To Counter
        buf = A(i)
        j = i - 1
        Do While (A(j) < buf)
            A(j + 1) = A(j)
            j = j - 1
            If j < l Then Exit Do
        Loop
        A(j + 1) = buf
    Next i
    
    If N > Counter Then
        Opt = ""
        Else: Opt = A(Counter - N + 1)
    End If
    
End Function

Dim A() As Long

Dim A() As Double

Public Sub OptSub()
    Dim A(1 To 1000) As Double
    For Each R In ActiveSheet.ListObjects("tabl148").ListColumns(1).Range
        Found = False
        For i = 1 To Counter
            If R.Value = A(i) Then
                Found = True
                Exit For
            End If
        Next i
        If Not Found And IsNumeric(R.Value) Then
            Counter = Counter + 1
            A(Counter) = R.Value
        End If
    Next R
    
    l = 1
    
    For i = (l + 1) To Counter
        buf = A(i)
        j = i - 1
        Do While (A(j) < buf)
            A(j + 1) = A(j)
            j = j - 1
            If j < l Then Exit Do
        Loop
        A(j + 1) = buf
    Next i
    
    For i = 1 To Counter
        ActiveSheet.ListObjects("tabl559").Range.Cells(2 * i, 1).Value = A(Counter - i + 1)
        ActiveSheet.ListObjects("tabl559").Range.Cells(2 * i + 1, 1).Value = A(Counter - i + 1)
    Next i
    
End Sub


Public Sub aaa()
MsgBox (Opt(Range("A2:A22"), 1))
End Sub