VBA выбивает ошибку "Application-Defined or Object-Defined Error"

помогите найти ошибку в коде.
изначальное задание: изменить мин. эл. ряда Х, мин. элементом выше главной диагонали матрицы А. Макс. эл. этого ряда максимальным элементом ниже главной диагонали той же матрицы. затем соритровать массив Х по возрастанию.
сам код:
Sub laba()
Dim i As Single, j As Single, N As Single, M As Single, a(10, 10) As Integer, x(50) As Integer
N = Cells(2, 2)
M = Cells(2, 4)
'ввод матрицы
For i = 1 To M
For j = 1 To M
a(i, j) = Cells(i + 3, j)
Next j
Next i
'вывод матрицы
For i = 1 To N
x(i) = Cells(3, j)
Next i
'нахождение максимального значения в массиве
Max = x(1)
For i = 2 To N
If x(i) > Max Then
Max = x(i)
End If
Next i
'нахождение минимального в массиве
Min = x(1)
For i = 2 To N
If x(i) < Min Then
Min = x(i)
End If
Next i
Max = a(1, 1)
For i = 1 To M
For j = 1 To M
If i < j Then
If a(i, j) > max1 Then
max1 = a(i, j)
End If
End If
Next j
Next i
Min = a(1, 1)
For i = 1 To M
For j = 1 To M
If i > j Then
If a(i, j) < Min1 Then
Min1 = a(i, j)
End If
End If
Next j
Next i
r = Max
Max = max1
max1 = r
r = Min
Min = Min1
Min1 = r
For i = 1 To M
x(i) = Cells(3, j)
Next i
For i = 1 To M + 1
x(i) = Cells(3, j)
Next i
For i = 1 To N - 1
For k = i + 1 To N
If x(i) > x(k) Then
r = x(i)
x(i) = x(k)
x(k) = r
End If
Next k
Next i
For i = 1 To N
Cells(4, i) = x(i)
Next i
End Sub