Olá!
Não localizei de inicio a planilha e a indicada no fórum foi uma que já estava com o desafio realizado. Porém, resolvi então fazer o ajuste no de vendedor (mesmo que seja mostrado uma nova possibilidade na próxima aula). Com isso, o código ficou assim, identico ao Right, porém agora fazendo substituir em Left devido a localização contraria no campo do caractere especial.
Sub AjustaVendedor()
For contador = 2 To Range("j1")
Range("H" & contador) = Left(Range("H" & contador), 5)
Next
End Sub
Deixando assim, ajustado:
Conte com o apoio da comunidade Alura na sua jornada. Abraços e bons estudos!