Поменять местами первый положительный и последний отрицательный элементы массива

Sub ikikik()
 
 
 
 Dim a(15) As Single, n As Integer, min As Single, max As Single
 
 For n = 1 To 15
    a(n) = Int(Rnd * 10 - 1) 'не знаю как сделать из заданого промежутка
    Cells(n, 1) = a(n)
 Next n
 min = a(1)
 max = a(1)
 For n = 1 To 15
    If a(n) > max Then max = a(n)
    If a(n) < min Then max = a(n)
Next n
 
 For n = 1 To 15
    max = min
    max = min
    Cells(n, 2) = a(n)
 Next n
 
 End Sub

For n = 1 To 15
    If a(n) > max Then max = a(n)
    x = a(n)
    If a(n) < min Then max = a(n)
    y = a(n)
    a(n) = min: a(n) = max
Next n

For n = 1 To 15
   If a(n) = max Or a(n) = min Then
   If a(n) = max Then a(n) = min Else a(n) = max
    Cells(n, 2) = a(n)
    End If
 Next n

Option Base 1
Sub ii()
Dim a(15) As Integer, n As Integer, plus As Integer, minus As Integer, t As Integer
Dim plus_ex As Boolean
Cells.Clear
For n = 1 To 15
    a(n) = Int(Rnd * 41) - 20
    Cells(n, 1) = a(n)
    If plus_ex = False And a(n) > 0 Then
        plus_pos = n: plus_ex = True
        Cells(n, 1).Interior.Color = vbGreen
    End If
    If a(n) < 0 Then minus_pos = n
Next n
Cells(minus_pos, 1).Interior.Color = vbRed
t = a(plus_pos)
a(plus_pos) = a(minus_pos)
a(minus_pos) = t
Range("B1:B15") = Application.Transpose(a)
Cells(plus_pos, 2).Interior.Color = vbRed
Cells(minus_pos, 2).Interior.Color = vbGreen
End Sub

Sub jj()
Dim a(15) As Integer, n As Integer, p As Integer, m As Integer, t As Integer
For n = 1 To 15
    a(n) = Int(Rnd * 41) - 20  'берем значение от 0 до 40.999999, отбрасываем дробную часть, отнимаем 20
    Cells(n, 1) = a(n)
Next
For n = 1 To 15
    If a(n) > 0 Then p = n: Exit For 'если от начала массива нашли первое положительное значение - записіваем его позицию и выходим
Next
For n = 15 To 1 Step -1
    If a(n) < 0 Then m = n: Exit For 'если от конца массива нашли первое отрицательное значение - записіваем его позицию и выходим
Next
t = a(p) 'обмен значениями в записанных позициях через временную переменную
a(p) = a(m)
a(m) = t
For n = 1 To 15
    Cells(n, 2) = a(n)
Next
End Sub