Помогите с кодом для VBA в Excelе

В матрице Д(7,9) найти номер столбца с максимальным количеством отрицательных элементов и распечатать индексы всех положительных элементов матрицы. Выдает ошибку пишет: Subscript out of range Option Explicit Dim i As Integer Dim m As Integer Dim n As Integer Dim x As Integer Dim y As Integer Dim s As Integer Dim A() As Double Dim j As Integer Dim f As Single Dim r As Single Private Sub CommandButton1_Click() m = Mrow n = Ncol 'MsgBox m 'MsgBox n ReDim A(1 To m, 1 To n) TabA m, n, A() 'MsgBox A(1, 1) For i = 1 To m For j = 1 To n A(i, j) = Cells(i, j) Next j Next i For i = 1 To m For j = 1 To n A(i, j) = Rnd() * 100 - 60 Cells(i + 1, j + 1) = A(i, j) If A(i, j) > 0 Then x = 1 y = 24 Cells(24, 1) = "i" Cells(24, 2) = "j" End If Next j Next i x = 1 For j = 1 To m For i = 1 To n If A(i, j) < 0 Then f = f + 1 End If Next i Next j End Sub Sub TabA(m As Integer, n As Integer, A() As Double) For i = 1 To m For j = 1 To n A(i, j) = Cells(i, j).Value Next j Next i End Sub Function Mrow() As Integer Dim i As Integer i = 1 Do Until IsEmpty(Cells(i, 1)) i = i + 1 Loop Mrow = i - 1 End Function Function Ncol() As Integer Dim j As Integer j = 1 Do Until IsEmpty(Cells(1, j)) j = j + 1 Loop Ncol = j - 1 End Function