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

Sub ReversArr(A() as integer)
      n%=Ubound(A,1)
      i%=1
      j%=n%
      Do
         If (j% <= i%) exit do
         tmp%=A(i%)
         A(i%)=A(j%)
         A(j%)=tmp%
         i%=i%+1
         j%=j%-1
      Loop
End Sub

Public Sub v()
Dim A() As Integer, B() As Double, i As Integer, k As Integer, m As Integer
N = InputBox("Ââåäèòå n")
ReDim A(1 To N)
ReDim B(1 To N)
For i = 1 To N
A(i) = Int(10 * Rnd - 5)
Cells(1, i) = A(i)
Next i
For i = 1 To N
B(i) = A(N - i + 1)
Cells(2, i) = B(i)
Next i
End Sub

Publick Sub v()
Dim A() As Integer, i As Integer
n=InputBox("Введите n")
ReDim A(1 To n)
For i=1 To n
A(i)=Int(n*i)
Cells (1,n-i+1)=A(i)
Next i
End Sub

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