Вывод массива на рабочий лист - VBA

Sub main()
Randomize Timer
Dim N, i, j, R As Integer
N = 6
Cells(1, 1) = "X(i)"
ReDim x(N)
For i = 0 To N
x(i) = Int(40 * Rnd) - 20
Cells(i + 2, 1).Value = x(i)
Next
For i = 0 To N
If x(i) > 0 Then
For j = N To 0 Step -1
If x(j) < 0 Then
R = x(i) - x(j)
Cells(1, 2) = "Разность =" & R
Exit Sub
End If
Next j
Cells(1, 2) = "Отрицательных чисел нет"
Exit Sub
End If
Next i
Cells(1, 2) = "Положительных чисел нет"
 
End Sub
 
Sub main1()
Dim i As Integer, j As Integer, s As Double
Randomize Timer
Const m = 4
Const N = 7
Dim x(1 To m, 1 To N)
For i = 1 To m
For j = 1 To N
x(i, j) = Int(40 * Rnd) + 1
Cells(1, j + 4) = "J=" & j
Cells(i + 1, 4) = "i=" & i
Cells(i + 1, j + 4) = x(i, j)
Next j
Next i
For i = 2 To m Step 2
For j = 1 To N
s = s + x(i, j)
Next j, i
Cells(i + 1, j + 3) = "S = " & s
 
End Sub