Помогите пожалуйста! найти количество положительных и количество отрицательных элементов матрицы 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