Criar chave ordenada para células repetidas

Boa tarde,

Preciso de uma ajuda em relação a criação de uma macro para gerar uma chave ordenada para a tabela abaixo.
Na coluna B eu tenho uma relação de fabricantes de automóvel, podendo este ser repetido ou não.
Preciso que a macro crie uma chave na coluna A com o formato "NOME DO FABRICANTEx", sendo "x" um sequencial de vezes que ele aparece na coluna B, conforme foto abaixo.



Agradeço desde já.

Boa noite, e bem-vindo ao fórum
Execute este procedimento
Sub CriaChave()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Rst As DAO.Recordset, I As Integer, UltimoDado As String
Set Rst = CurrentDb.OpenRecordset("SELECT A,B FROM Tabela")
Do While Not Rst.EOF
Rst.Edit
If Rst(1) = UltimoDado Then
I = I + 1
Rst(0) = Rst(0) & I
Else
I = 1
Rst(0) = Rst(0) & "1"
End If
UltimoDado = Rst(1)
Rst.Update
Rst.MoveNext
Loop
Rst.Close
Set Rst = Nothing
End Sub

Alexandre,

Obrigado pelo retorno.
Não entendi o passo "Set Rst = CurrentDb.OpenRecordset("SELECT A,B FROM Tabela")".
Esta dando erro exatamente neste momento.

Boa tarde,
Como não indicou o nome da tabela, coloquei "Tabela" que terá de substituir pelo nome da tabela em uso