Вывести на печать количество элементов массива

Sub ???()
Dim x As Integer
Dim i, j As Byte
Dim s As Integer
For i = 1 To 5
Cells(i + 1, i) = i
s = 0
For j = 1 To 5
Cells(i + 1, j) = j
If Cells(i, j) < 0 Then s = s + Cells(i, j)
Next j
Next i
MsgBox ("SUM= ") & s
End Sub

Dim x As Integer
Dim i, j As Byte
Dim d(5, 5) As Integer ' Объявлен массив d(5,5)
Dim s As Integer
For i = 1 To 5
s = 0
For j = 1 To 5
d(i, j) = Rnd() * 10 - 5
Cells(i + 1, j) = d(i, j)
If d(i, j) < 0 Then s = s + d(i, j)
Next j
q = q + s
Cells(i + 1, j + 2) = ("SUM= ") & s
Next i
Cells(i + 1, j + 2) = ("SUM= ") & q
End Sub
'Задан массив d(5,5). Найти сумму отрицательных значений в каждой строке.

Dim x As Integer
Dim i, j As Byte
Dim A(20) As Integer ' Объявлн массив A(20)
Dim s As Integer
Cells.Clear
j = 2
Randomize
For i = 1 To 20
A(i) = Rnd() * 20 - 10
Cells(i + 1, j) = A(i)
If (A(i) < 5) And (A(i) > 2) Then s = s + 1: Cells(i + 1, j).Font.Color = RGB(255, 0, 0)
 
Next i
Cells(i + 1, j + 2) = ("Кол = ") & s
End Sub
'Вывести на печать количество элементов массива А1, А2, … А20,
'попавших в интервал [2, 5] и их сумму

Dim x As Integer
Dim i, j As Byte
Dim A(20) As Integer ' Объявлн массив A(20)
Dim s, q As Integer
Cells.Clear
j = 2
Randomize
For i = 1 To 20
A(i) = Rnd() * 20 - 10
Cells(i + 1, j) = A(i)
If (A(i) < 5) And (A(i) > 2) Then
s = s + A(i)
q = q + 1
Cells(i + 1, j).Font.Color = RGB(255, 0, 0)
End If
Next i
Cells(i + 1, j + 2) = ("Кол = ") & q
Cells(i + 2, j + 2) = ("Sum = ") & s
End Sub
'Вывести на печать количество элементов массива А1, А2, … А20,
'попавших в интервал [2, 5] и их сумму