Ошибка в программе

Sub vector3()
Dim Матрица() As Integer, Вектор() As Integer
Dim m As Integer, n As Integer
Dim i As Integer, j As Integer
Dim Min As Integer
 Randomize
 Cells.Clear
 m = InputBox("кол-во строк")
 n = InputBox("кол-во столбц")
ReDim Мтарица(1 To m, 1 To n)
For i = 1 To m Step 1
     For j = 1 To n Step 1
         Матрица(i, j) = Int((5 - (-5) + 1) * Rnd + (-5))
         Cells(i, j).Value = Матрица(i, j)
     Next j
Next i
For i = 1 To m
     Min = Матрица(i, 1)
     For j = i + 1 To n
         If Матрица(i, j) < Min Then
             Min = Матрица(i, j)
         End If
     Next j
     ReDim Preserve Вектор(1 To i)
     Вектор(i) = Min
Next i
For i = 1 To n Step 1
     Cells(m + 2, i).Value = Вектор(i)
Next i
End Sub

Option Explicit
Rem Построить вектор L, каждый элемент которого равен минимальному элементу
Rem соответствующей строки матрицы М (k, l)
 
Sub vector3()
Dim m As Integer, n As Integer
Dim i As Integer, j As Integer
Dim Min As Integer
 
m = InputBox("кол-во строк")
n = InputBox("кол-во столбцов")
 
ReDim Матрица(1 To m, 1 To n) As Integer
ReDim Вектор(1 To m) As Integer
 
Cells.Clear
Randomize
For i = 1 To m Step 1
     For j = 1 To n Step 1
         Матрица(i, j) = Int((5 - (-5) + 1) * Rnd + (-5))
         Cells(i, j).Value = Матрица(i, j)
     Next j
Next i
 
For i = 1 To m
     Min = Матрица(i, 1)
     For j = 2 To n
         If Матрица(i, j) < Min Then
             Min = Матрица(i, j)
         End If
     Next j
     Вектор(i) = Min
Next i
For i = 1 To m Step 1
     Cells(m + 2, i).Value = Вектор(i)
Next i
End Sub