Сортировка отрицательных чисел в массиве

For i = 1 To n
    
    Do
        If r() / 10 >= 1 Or r() / 10 <= -1 Then
            arr(i) = r()
        End If
    Loop Until arr(i) = r()
    
    If arr(i) > max Then
        max = arr(i)
        K = i
    Else
        If arr(i) < min Then
            min = arr(i)
            L = i
        End If
    End If
       
    Cells(i, 1) = arr(i)
Next i

For i = 1 To n
    For j = 1 To (n - 1)
        If arr(j) > arr(j + 1) Then
            z = arr(j)
            arr(j) = arr(j + 1)
            arr(j + 1) = z
        End If
    Next j
    Cells(i, 1) = arr(i)
Next i

Function r() As Integer
r = Int((2 * 99 + 1) * Rnd - 99)
End Function

Function r() As Integer
r = Int((2 * 99 + 1) * Rnd - 99)
End Function
 
Public Sub Massive()
 
Dim arr() As Integer
Dim n As Integer, i As Integer
Dim arr1() As Integer
 
Cells.Clear
 
Do
    prom = InputBox("Введите количество элементов в массиве N = ")
    If Not IsNumeric(prom) Then MsgBox ("Неверные данные!")
Loop Until IsNumeric(prom)
n = prom
 
ReDim arr(1 To n)
Dim K As Integer, L As Integer, max As Integer, min As Integer
max = -99
min = 99
 
 
 
 
For i = 1 To n
 
    Do
        If r() / 10 >= 1 Or r() / 10 <= -1 Then
        arr(i) = r()
        End If
    Loop Until arr(i) = r()
 
    If arr(i) > max Then
        max = arr(i)
        K = i
    Else
        If arr(i) < min Then
            min = arr(i)
            L = i
        End If
    End If
    
Next i
 
Range("c1") = "Максимальным элементом является a(" & CSng(K) & ") = " & CSng(max)
Range("c2") = "Минимальным элементом является a(" & CSng(L) & ") = " & CSng(min)
 
Dim j As Integer
Dim z As Integer
 
z = 0
For i = 1 To n
    For j = 1 To (n - 1)
        If arr(j) > arr(j + 1) Then
            z = arr(j)
            arr(j) = arr(j + 1)
            arr(j + 1) = z
        End If
    Next j
    Cells(i, 1) = arr(i)
Next i
 
 
End Sub