Определить расположение строки и колонки - VB

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

Выделить цветом нулевые значения и определить расположение (т.е. номер строки и номер колонки) первого из них относительно начала диапазона. Я только выделила цветом нулевые значения, но не получается определить расположение 1 из них относительно начала. Исправьте плз

Public Sub Диапазон_ячеек()
 
Dim KP As Integer, KN As Integer, KO As Integer
Dim NR As Integer, NC As Integer
Dim NumOfRow As Integer, NumOfCol As Integer
Dim Item As Variant, i As Integer, j As Integer
NR = Selection.Rows.Count
NC = Selection.Columns.Count
NumOfRow = Selection.Row
NumOfCol = Selection.Column
For i = 1 To NR
For j = 1 To NC
Item = Selection.Cells(i, j)
If IsNumeric(Item) Then
If Item = 0 Then
KP = KP + 1
Selection.Cells(i, j).Font.Color = vbRed
End If
If Item > 0 Then KN = KN + 1
If Item < 0 Then KO = KO + 1
End If
Next j
Next i
Cells(NumOfRow, NumOfCol + NC) = KP
Cells(NumOfRow, NumOfCol + NC + 1) = "Количество (+) значений"
Cells(NumOfRow + 1, NumOfCol + NC) = KN
Cells(NumOfRow + 1, NumOfCol + NC + 1) = "Количество нулевых значений"
Cells(NumOfRow + 2, NumOfCol + NC) = KO
Cells(NumOfRow + 2, NumOfCol + NC + 1) = "Количество (-) значений"
 
End Sub

Решение задачи: «Определить расположение строки и колонки»

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

                            Public Sub Диапазон_ячеек()
 
Dim KP As Integer, KN As Integer, KO As Integer
Dim NR As Integer, NC As Integer
Dim NumOfRow As Integer, NumOfCol As Integer
Dim Item As Variant, i As Integer, j As Integer
NR = Selection.Rows.Count
NC = Selection.Columns.Count
NumOfRow = Selection.Row
NumOfCol = Selection.Column
For i = 1 To NR
    For j = 1 To NC
        Item = Selection.Cells(i, j)
        If IsNumeric(Item) Then
            If Item = 0 Then
                If KP = 0 Then
                    Cells(NumOfRow + 3, NumOfCol + NC) = i & " - строка первого нулевого"
                    Cells(NumOfRow + 3, NumOfCol + NC + 1) = j & " - столбец первого нулевого"
                End If
                KP = KP + 1
                Selection.Cells(i, j).Font.Color = vbRed
            End If
            If Item > 0 Then KN = KN + 1
            If Item < 0 Then KO = KO + 1
        End If
    Next j
Next i
Cells(NumOfRow, NumOfCol + NC) = KP
Cells(NumOfRow, NumOfCol + NC + 1) = "Количество (+) значений"
Cells(NumOfRow + 1, NumOfCol + NC) = KN
Cells(NumOfRow + 1, NumOfCol + NC + 1) = "Количество нулевых значений"
Cells(NumOfRow + 2, NumOfCol + NC) = KO
Cells(NumOfRow + 2, NumOfCol + NC + 1) = "Количество (-) значений"
 
End Sub
                        