Найти номер столбца матрицы с максимальным количеством отрицательных элементов

Private Sub CommandButton1_Click()
Dim n As Integer, m As Integer, w() As Integer, z() As Integer
Dim i As Integer, j As Integer, k As Integer, max As Integer
Dim r() As Integer, t() As Integer
Cells.Clear
Randomize
n = InputBox("Введите кол-во строк", "", "7")
m = InputBox("Введите кол-во столбцов", "", "9")
q = m * n: h = 1
ReDim w(n, m) As Integer, z(m) As Integer, r(q) As Integer, t(q) As Integer
For i = 1 To n
For j = 1 To m
w(i, j) = Rnd() * 100 - 60
Cells(i + 1, j + 1) = w(i, j)
 
If w(i, j) > 0 Then
r(h) = i
t(h) = j
h = h + 1
End If
Next j
Next i
 
h = 1
For j = 1 To m
For i = 1 To n
If w(i, j) < 0 Then
k = k + 1
End If
Cells(i + 5 + n, j + 1) = r(h) & "," & t(h)
h = h + 1
Next i
z(j) = k
k = 0
Cells(3 + n, j + 1) = z(j)
If max < z(j) Then
max = z(j)
End If
Next j
Cells(4 + n, 2) = "столбца с максимальным количеством отрицательных элементов = " & max
End Sub

Private Sub CommandButton1_Click()
Dim n As Integer, m As Integer, w() As Integer, z() As Integer
Dim i As Integer, j As Integer, k As Integer, max As Integer
Dim r() As Integer, t() As Integer
Cells.Clear
Randomize
n = InputBox("Введите кол-во строк", "", "7")
m = InputBox("Введите кол-во столбцов", "", "9")
 
Cells(1, 5) = "Исходная матрица"
Cells(1, 5).Font.Size = 18
Cells(1, 5).Font.Bold = True
ReDim w(n, m) As Integer, z(m) As Integer, r(n, m) As Integer
For i = 1 To n
For j = 1 To m
w(i, j) = Rnd() * 100 - 60
Cells(i + 1, j + 1) = w(i, j)
r(i, j) = w(i, j)
If w(i, j) > 0 Then
r(i, j) = i & "" & j
 
End If
Next j
Next i
 
 
For j = 1 To m
For i = 1 To n
If w(i, j) < 0 Then
k = k + 1
End If
Next i
z(j) = k
k = 0
Cells(3 + n, j + 1) = z(j)
If max < z(j) Then
max = z(j)
End If
Next j
Cells(4 + n, 2) = "столбца с максимальным количеством отрицательных элементов = " & max
Cells(14, 5) = "Полученная матрица"
Cells(14, 5).Font.Size = 18
Cells(14, 5).Font.Bold = True
 
For i = 1 To n
For j = 1 To m
Cells(i + 8 + n, j + 1) = r(i, j)
h = h + 1
Next j
Next i
End Sub