Составить программу вычисления суммы матриц А и В размера 3x3

Sub Procedure_1()
    
    'Чтобы сложить две матрицы, количество строк
    'и столбцов в этих матрицах должны быть равны.
    'Сложение матриц - это формирование новой матрицы,
    'в которой каждый элемент является суммой
    'соответствующих элементов в двух матрицах.
    
    'Создаём на пластинках оперативной памяти компьютера
    'поименованные области - матрицы и переменные.
    'Матрица - это двумерный массив. Двумерный массив мысленно
    'можно представить как таблицу, состоящую из строк из столбцов,
    'например таблица из программы Word.
    
    'По умолчанию порядковый номер первого элемента матрицы равен ноль.
    'Чтобы было удобно сделаем так, что порядковый номер первого
    'элемента матрицы будет равен одному. Для это используется: 1 To.
    
    'Double означает, что в массиве может быть любое число: и дробное и целое.
    'Но текста и других видов данных там не может быть.
    
    Dim dA(1 To 3, 1 To 3) As Double
    Dim dB(1 To 3, 1 To 3) As Double
    Dim dC(1 To 3, 1 To 3) As Double
 
    'Long означает, что в переменной могут быть только целые числа.
    Dim i As Long, j As Long
    
    'Заполняем массивы числами - чтобы было с чем работать.
    For i = 1 To 3 Step 1
        For j = 1 To 3 Step 1
            dA(i, j) = InputBox("Введите число для массива dA")
        Next j
    Next i
    For i = 1 To 3 Step 1
        For j = 1 To 3 Step 1
            dB(i, j) = InputBox("Введите число для массива dB")
        Next j
    Next i
 
    'Для наглядности выводим массивы в Excel.
    For i = 1 To 3 Step 1
        For j = 1 To 3 Step 1
            Cells(i, j).Value = dA(i, j)
        Next j
    Next i
    
    For i = 1 To 3 Step 1
        For j = 1 To 3 Step 1
            'Range("E1:G3") - используется для удобства написания кода,
            'чтобы не учитывать, сколько надо прибавить количество
            'столбцов, чтобы массивы разместить рядом.
            Range("E1:G3").Cells(i, j).Value = dB(i, j)
        Next j
    Next i
    
    'Суммируем массивы.
    For i = 1 To 3 Step 1
        For j = 1 To 3 Step 1
            dC(i, j) = dA(i, j) + dB(i, j)
        Next j
    Next i
    
    'Выводим результат (это массив dC) в Excel.
    For i = 1 To 3 Step 1
        For j = 1 To 3 Step 1
            Range("I1:K3").Cells(i, j).Value = dC(i, j)
        Next j
    Next i
    
    'Сообщение, что работа завершена.
    MsgBox "Работа завершена!", vbInformation
    
End Sub