Вывести одномерный массив в обратном порядке без использования дополнительного массива - VB

Public Sub v()
    Dim A() As Integer, i As Integer, n As Integer
    n = InputBox("Введите n")
    ReDim A(1 To n)
    
    For i = 1 To n
         A(i) = Int(n * i)
         Cells(1, i) = A(i)
    Next i
    
    ReversArr A
    
    For i = 1 To n
         Cells(2, i) = A(i)
    Next i
    
End Sub
 
Private Sub ReversArr(A() As Integer)
Dim n%, i%, j%, tmp%
      n% = UBound(A, 1)
      i% = 1
      j% = n%
      Do
         If j% <= i% Then Exit Do
         tmp% = A(i%)
         A(i%) = A(j%)
         A(j%) = tmp%
         i% = i% + 1
         j% = j% - 1
      Loop
End Sub