Макрос для сквозной нумерации с группами и подгруппами

[Ph0enix]

Доброго времени суток. У меня имеется 2 столбца А и В, ячейки в столбце А я закрасил 3 разными цветами, то есть красный в соседней ячейке начинает отчет с 1 и т.д +1, желтый в соседней 1.1 + 0.1, синий в соседней 1.1.1 +0.1. Возникла у меня такого рода проблема, при написание макроса, не получается правильно вставить 3 счетчика. Файл приложил, задатки кода тоже внутри. Прошу вашей помощи, уж очень мне хочется разобраться в данном вопросе.

Sub nomer()
Dim ind%, I%
    For ind = 1 To 1000 Step 1
        If Cells(I, 1).Interior.ColorIndex = "3" Then
            I = I + 1
            Cells(I, 2).Value = ind
        End If
                
        If Cells(I, 1).Interior.ColorIndex = "6" Then
            Cells(I, 2).Value = "1.1"
        End If
        
        If Cells(I, 1).Interior.ColorIndex = "23" Then
            Cells(I, 2).Value = "1.1.1"
        End If
    Next
End Sub

[Watcher_1]

Sub nomer()
    Dim ind%, I%
    For ind = 1 To 1000
        If Cells(ind, 1).Interior.Color = 255 Then
            I = I + 1
            Cells(ind, 2).Value = I
            myY = I & ".0"
        ElseIf Cells(ind, 1).Interior.Color = 65535 Then
            myY = Split(myY, ".")(0) & "." & Val(Split(myY, ".")(1)) + 1
            Cells(ind, 2).Value = myY
            myB = myY & ".0"
        ElseIf Cells(ind, 1).Interior.Color = 12611584 Then
            myB = Split(myB, ".")(0) & "." & Split(myB, ".")(1) & "." & Val(Split(myB, ".")(2)) + 1
            Cells(ind, 2).Value = myB
        End If
    Next
End Sub

[Ph0enix]

Watcher_1, Спасибо вам огромное. Не ожидал такого быстрого и качественного ответа. Буду разбираться дальше. Еще раз спасибо!

[Ph0enix]

А можно еще 1 вопрос? Возможно привязать нумерацию не к цвету ячеек, а к их стилю?