Помогите пожалуйста! найти количество положительных и количество отрицательных элементов матрицы Z(9,6) срочно очень надо программирование!!!!!!!!!!! помогите! выполнить на языке VBA (Visual Basic For Application)

Sub aaa()
    Dim r As Range
    Set r = Range(Cells(1, 1), Cells(9, 6))
    Z = r
    kn = 0: kp = 0
    For Each a In Z
        If a lt; 0 Then kn = kn + 1
        If a gt; 0 Then kp = kp + 1
    Next
    Cells(12, 1) = "Положительных" + Str(kp)
    Cells(13, 1) = "Отрицательных" + Str(kn)
End Sub

Во вложении рабочая книга MS Excel 2003