Найдите ошибку... - VB

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

Вычислить сумму элементов каждой строки матрицы А, результат отобразить на листе Excel в виде столбца.

Public Sub матрица()
Dim x(4, 4) As Single
Dim S, n, m As Integer
n = Val(InputBox("Введите размерность матрицы"))
 For i = 1 To n
  For j = 1 To n
   x(i, j) = CSng(InputBox("Введите элемент x(" & Str(i) & "," & Str(j) & ")"))
   Cells(i, j) = x(i, j)
  Next j
 Next i
For i = 1 To n
 S = 0
  For j = 1 To n
   S = S + x(i, j)
  Next j
   m(i)  = S
Next i
End Sub

Решение задачи: «Найдите ошибку...»

textual
                            Листинг программы 
                        

                            Public Sub матрица()
Dim x() As Single
Dim S, n As Integer
Dim m() As Integer
 
n = Val(InputBox("Введите размерность матрицы"))
ReDim x(n, n)
ReDim m(n)
 For i = 1 To n
  For j = 1 To n
   x(i, j) = CSng(InputBox("Введите элемент x(" & Str(i) & "," & Str(j) & ")"))
   Cells(i, j) = x(i, j)
  Next j
 Next i
For i = 1 To n
 S = 0
 For j = 1 To n
   S = S + x(i, j)
 Next j
 m(i) = S
 Cells(i, n + 1) = m(i)
Next i
End Sub
                        