Помогите составить программу в VBA !!!

Sub pppp()
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
' начало вставки1
Cells(22, h) = i
Cells(23, h) = j
' конец вставки1
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