Basic задача

[Zina123]

Добрый вечер. Никак не получается задача. Уже по всякому пробовала. Вот один из вариантов, но не реашется так тоже. Помогите, пожалуйста. Заранее спасибо!

Задача:Заполнить две матрицы любыми числами вручную, получить третью матрицу, элементы которой являются суммами двух предыдущих.

Public Sub Matrica_New()
Dim A(1 To n, 1 To n) As Single
Dim B(1 To n, 1 To n) As Single
Dim cRow As Integer, cCol As Integer
Randomize
For i = 1 To n
For j = 1 To n
A(i, j) = Rnd
B(i, j) = Rnd
Next j
Next i
Dim dCol As Integer
dCol = 5
cCol = 3
For i = 1 To n
cCol = 1
For j = 1 To n
Cells(cRow, cCol).Value = A(i, j)
Cells(cRow, cCol + dCol).Value = B(i, j)
cCol = cCol + 1
Next j
cRow = cRow + 1
Next i
Dim C(1 To n, 1 To n) As Single
For i = 1 To n
For j = 1 To n
C(i, j) = A(i, j) + B(i, j)
Next i
Next j
For i = 1 To n
cCol = 1
For j = 1 To n
Cells(cRow, cCol).Value = C(i, j)
cCol = cCol + 1
Next j
cRow = cRow + 1
Next i
End Sub

[Serebro]

В программе переменные:
cCol и cRow
не нужны (уже есть переменные i и j).

[Z1000000]

Это в чем написано ?
я правил в Excel на VBA
Ошибка всего одна. Я пометил красным.
Много излишеств, см.комментарий Serebro.

Public Sub Matrica_New()
Const n = 4
Dim A(1 To n, 1 To n) As Single
Dim B(1 To n, 1 To n) As Single
Dim cRow As Integer, cCol As Integer
Randomize
For i = 1 To n
For j = 1 To n
A(i, j) = Rnd
B(i, j) = Rnd
Next j
Next i
Dim dCol As Integer
dCol = 5
cCol = 3
cRow = 1
For i = 1 To n
cCol = 1
For j = 1 To n

Cells(cRow, cCol).Value = A(i, j)
Cells(cRow, cCol + dCol).Value = B(i, j)
cCol = cCol + 1
Next j
cRow = cRow + 1
Next i
Dim C(1 To n, 1 To n) As Single
For i = 1 To n
For j = 1 To n
C(i, j) = A(i, j) + B(i, j)
Next j
Next i
cRow = cRow + 1
For i = 1 To n
cCol = 1
For j = 1 To n
Cells(cRow, cCol).Value = C(i, j)
cCol = cCol + 1
Next j
cRow = cRow + 1
Next i
End Sub