Найти количество положительных и количество отрицательных элементов матрицы 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 < 0 Then kn = kn + 1
        If a > 0 Then kp = kp + 1
    Next
    Cells(12, 1) = "Положительных" + Str(kp)
    Cells(13, 1) = "Отрицательных" + Str(kn)
End Sub

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