Протяжка нумерации в столбце с изменением цифр внутри ячейки

[lioon]

Здравствуйте,

Подскажите, как решить такую проблему с помощью VBA:
Есть список

979_2_2_008_002_КМ_01_00
979_2_2_008_002_КМ_01_00
979_2_2_008_002_КМ_03_00
979_2_2_008_002_КМ_03_00
979_2_2_008_002_КМ_05_00
979_2_2_008_002_КМ_05_00
979_2_2_008_002_КМ_05_00
979_2_2_008_002_КМ_05_00
979_2_2_008_002_КМ_09_00
979_2_2_008_002_КМ_09_00
979_2_2_008_002_КМ_09_00
и т.д.

Из него необходимо сделать список:
979_2_2_008_002_КМ_01_00
979_2_2_008_002_КМ_02_00
979_2_2_008_002_КМ_03_00
979_2_2_008_002_КМ_04_00
979_2_2_008_002_КМ_05_00
979_2_2_008_002_КМ_06_00
979_2_2_008_002_КМ_07_00
979_2_2_008_002_КМ_08_00
979_2_2_008_002_КМ_09_00
979_2_2_008_002_КМ_10_00
979_2_2_008_002_КМ_11_00

Если протяжкой делать, то он меняет последние цифры, но нужно именно 4-5 символ с конца.
При этом важно чтобы последние два символа не менялись, т.к. это версия документа.

[EducatedFool]

Проверяйте:

Sub ЗаменаЧисел()
    On Error Resume Next
    Dim ra As Range: Set ra = Range(Range("a1"), Range("a" & Rows.Count).End(xlUp))
    Dim cell As Range, txt$, ind&
    For Each cell In ra.Cells
        ind& = ind& + 1: txt = cell.Value
        pos& = Len(txt) - 4        ' позиция заменяемого текста
        Mid(txt, pos&, 2) = Format(ind, "00")
        cell = txt
    Next cell
End Sub

Подразумевается, что исходные данные идут в один столбец, начиная с ячейки A1,
и всегда надо менять только 4 и 5 символы с конца,
и строк будет не больше 99

[lioon]

Супер!
Большое спасибо! Всё работает!

[DiemonStar]

А через Split() - Join() не быстрее было бы?