Работа с объектами. Область ячеек - VB

Формулировка задачи:

Помогите пожалуйста доделать и исправить программу. Условие: Заполнить область ячеек G1:K8 случайными целыми числами из диапазона [-8; 35]. Вычислить сумму и количество отрицательных элементов по всей области. Выделить эти элименты цветом Результаты – в ячейки столбца F. Решение: Sub Oblast_1() Dim i As Integer, j As Integer, S As Integer, N As Integer, P As Integer Dim k As Integer, l As Integer For i = 1 To 8 For j = 7 To 11 Cells(i, j) = Int(Rnd() * (35 + 8) - 8) Next j Next i For i = 1 To 8 For j = 7 To 11 If Cells(i, j) < 0 Then S = S + Cells(i, j) End If Next j Next i Cells(i, j).Interior.ColorIndex = 3 MsgBox ("S=" & S) S = Cells(1, 6) End Sub

Решение задачи: «Работа с объектами. Область ячеек»

textual
                            Листинг программы 
                        

                             Sub Oblast_1()
 Dim oCell As Range, iSum As Integer, iCol As Integer
 Union([G1:K8], [F1:F2]).Clear
 For Each oCell In [G1:K8]
    oCell.Value = Int(Rnd * 44 - 8)
    If oCell < 0 Then
       oCell.Interior.Color = vbRed
       iSum = iSum + oCell: iCol = iCol + 1
    End If
 Next
 [F1] = "Г‘ГіГ¬Г¬Г* Г®ГІГ°ГЁГ¶. = " & iSum
 [F2] = "ГЉГ®Г«-ГўГ® Г®ГІГ°ГЁГ¶. = " & iCol
 End Sub
                        