Вывести результат массива в таблицу Excel - VB

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

собственно у меня есть полностью решенное задание,но возникла небольшая трудность с которой я никак немогу справится, проблемма в том что мне надо полученную матрицу вывести на лист exel, я знаю что это делается с помощью cells, но незнаю как это реализовать чтобы все работало

                    Листинг программы
                
 
                        
                          
                    
Dim a(1 To 100, 1 To 100) As Integer
Dim b(1 To 100, 1 To 100) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Private Sub CommandButton1_Click()
n = TextBox1.Text
For i = 1 To n
For j = 1 To n
q = InputBox("a[" + Str(i) + "," + Str(j) + "]=")
a(i, j) = q
ListBox1.AddItem a(i, j)
Next j
Next i
End Sub
 
Private Sub CommandButton2_Click()
End
End Sub
 
Private Sub CommandButton3_Click()
ListBox1.Clear
TextBox1.Text = ""
End Sub
 
Private Sub CommandButton4_Click()
For i = 1 To n
For j = 1 To n
If i >= (n + 1) - j Then
b(i, j) = a(n + 1 - j, n + 1 - i)
Else
b(i, j) = a(i, j)
End If
ListBox1.AddItem b(i, j)
Next j
Next i
End Sub

Решение задачи: «Вывести результат массива в таблицу Excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton4_Click()
Cells.Clear
For i = 1 To n
    For j = 1 To n
        If i >= (n + 1) - j Then
            b(i, j) = a(n + 1 - j, n + 1 - i)
        Else
            b(i, j) = a(i, j)
        End If
        Cells(i, j) = b(i, j)
    Next j
Next i
 End Sub