Преобразовать матрицу в ее симметричную по строке M/2 - VBA

Формулировка задачи:

Взять матрицу M x N, Преобразовать ее в симметричную по строке M/2. Вывести результат рядом с исходной матрицей. M=6, N=7.

Матрицу получилось сделать, а вот дальше - не знаю, как. Помогите, пожалуйста.

                    Листинг программы
                
 
                        
                          
                    
Sub laba12()
'
' laba12 ГЊГ*ГЄГ°Г®Г±
'
 
'
Cells.Clear
Dim n As Byte
Dim m As Byte
n = InputBox("stolbci", , 6)
m = InputBox("stroki", , 7)
For i = 1 To n
For j = 1 To m
Cells(i, j) = Int(Rnd * 100) + 1
Next
Next i
End Sub

Решение задачи: «Преобразовать матрицу в ее симметричную по строке M/2»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub laba12()
   Cells.Clear
   Dim n As Byte, m As Byte, i As Integer, j As Integer
   n = InputBox("Строки", , 6)
   m = InputBox("Столбцы", , 7)
   For i = 1 To n
      For j = 1 To m
         Cells(i, j) = Int(Rnd * 100) + 1
         Cells(n + 1 - i, j + (m + 1)) = Cells(i, j)
      Next
   Next
End Sub