Задан двумерный массив

Sub ObLivion2346()
    Dim a(), b()
    Dim i&, j&, n&
    Dim s#
'--------------------
    ActiveSheet.UsedRange.EntireRow.Delete
    
    'вводим данные
    On Error Resume Next
    n = Int(InputBox("Введите порядок матрицы", "Тыкай пальцем!"))
    If Err Then
        Err.Clear
        MsgBox "Разуй глаза! Вводим только циферы!", vbInformation
        Exit Sub
    End If
    
    'наполняем массив случайными числами от 1 до 20
    ReDim a(1 To n, 1 To n)
    Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = (20 * Rnd) + 1
        Next
    Next
    Cells(1, 1).Resize(n, n) = a
    
    'считаем произведение главной диагонали
    For i = 1 To n
        j = i 
        Cells(i, j).Interior.Color = vbGreen
        s = IIf(s = 0, a(i, j), s * a(i, j))
    Next
    Cells(1, n + 2) = s
    
    'собираем вектор значений (массив)
    ReDim b(1 To n)
    For j = 1 To n
        b(j) = a(1, j) / s
    Next
    Cells(n + 4, 1).Resize(1, n) = b
    
    'поздравлялка
    Beep
    MsgBox "Какой я молодец!"
End Sub