Boa tarde!!

No meu trabalho eu não tenho acesso para baixar e visualizar a imagem, favor postar aqui no fórum seu arquivo modelo!!

Att

Alexandrevba,

Segue anexo.

Boa tarde!!

So serve se for macro?

=B2&TEXTO(SE(CONT.SE(B$1:B1;B2&"*")=0;1;CONT.SE($B$1:B1;B2&"*")+1);"00")

Att

Alexandrevba,

Já ajudou demais!!!!
O único problema da formula é ter que puxa-la, mas eu faço a macro pra puxar a formula (E assim a gente vive)!
Por enquanto esta excelente, agradeço demais a sua ajuda!

Abraços!

Boa tarde!!

Tente assim

Sub AleVBA_14882()
    Dim Lastrow As Long
    Application.ScreenUpdating = False
        Lastrow = Range("B" & Rows.Count).End(xlUp).Row
        Range("A2:A" & Lastrow).Formula = "=B2&TEXT(IF(COUNTIF(B$1:B1,B2&""*"")=0,1,COUNTIF($B$1:B1,B2&""*"")+1),""00"")"
    Application.ScreenUpdating = True
    
End Sub

Att

Alexandrevba,

Perfeito!
Agradeço sua pronta atenção!

Abraços.

Boa tarde!!

Opsss
Esqueci de retirar a formula.

Sub AleVBA_14882()
    Dim Lastrow As Long
    Application.ScreenUpdating = False
        Lastrow = Range("B" & Rows.Count).End(xlUp).Row
        Range("A2:A" & Lastrow).Formula = "=B2&TEXT(IF(COUNTIF(B$1:B1,B2&""*"")=0,1,COUNTIF($B$1:B1,B2&""*"")+1),""00"")"
        Range("A2:A" & Lastrow).Value = Range("A2:A" & Lastrow).Value 'Tire a formula
    Application.ScreenUpdating = True
    
End Sub

Favor Clicar na mãozinha!!!

Att