Ошибка runtime error '9' subscript out of range

[BioNoob]

Дан массив A(N,N). Напишите программу, которая прибавляла бы к каждому элементу данной строки элемент, принадлежащий этой строке и главной диагонали.
программа есть но выдаёт ошибку runtime error '9' subscript out of range
вот код программы:

Option Explicit
Sub zad3()
Const N = 10, M = 10
Dim A(1 To N, 1 To M) As Double
Dim i As Integer, j As Integer, g As Double
Randomize
For i = 1 To N
For j = 1 To M
A(i, j) = 1 + Int(Rnd(4) * 10)
Sheets(1).Cells(i, j).Value = A(i, j)
'MsgBox A(i, j) & " "
Next j
'MsgBox (" ")
Next i
'MsgBox (" ")
For i = 1 To N
g = A(i, i)
Next i
For j = 1 To M
A(i, j) = A(i, j) + g
Sheets("Лист1").Cells(i + 12, j).Value = A(i, j) //на этом месте выдаётся ошибка
Next j
MsgBox (A(i, j) & " ")
MsgBox (" ")
End Sub

можете сказать как избавится от ошибки

[EducatedFool]

У вас 2 цикла не были вложены - из-за этого и ошибка выскакивала.

Вот так будет работать
(алгоритм не проверял - но ошибка теперь не выскакивает)

Sub zad3()
    Const N = 10, M = 10
    Dim A(1 To N, 1 To M) As Double
    Dim i As Integer, j As Integer, g As Double
    Randomize
    For i = 1 To N
        For j = 1 To M
            A(i, j) = 1 + Int(Rnd(4) * 10)
            Sheets(1).Cells(i, j).Value = A(i, j)
        Next j
    Next i
    For i = 1 To N
        g = A(i, i)
        For j = 1 To M
            A(i, j) = A(i, j) + g
            Sheets(1).Cells(i + 12, j).Value = A(i, j)    'на этом месте выдаётся ошибка
        Next j
    Next i
End Sub

[BioNoob]

Спасибо большое я понял где ошибся!!!