Function RangNew(IshDan)
Dim a() As Integer, B() As Integer, r As Range
Dim i As Integer, j As Integer, tmp As Integer, n As Integer
Set r = IshDan
n = r.Cells.Rows.Count
ReDim a( 1  To n)
ReDim B( 1  To n,  1  To  1 )
For i =  1  To n
  a(i) = r.Cells(i)
Next i
For i =  2  To n
  For j = n To i Step - 1 
    If a(j -  1 ) > a(j) Then
      tmp = a(j -  1 )
      a(j -  1 ) = a(j)
      a(j) = tmp
    End If
  Next j
Next i
For i =  1  To n
  For j =  1  To n
    If r.Cells(i) = a(j) Then
      B(i,  1 ) = j
      Exit For
    End If
  Next j
Next i
RangNew = B
End Function