Olá!
Fiz este mesmo desafio no fórum anterior (https://cursos.alura.com.br/forum/topico-projeto-criando-o-codigo-para-ajustar-o-produto-macro-548373), mas segue abaixo o resultado obtido:
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: