Eu consegui, trocando algumas informações
Sub sbAjustaVendedor()
For contador = 2 To Range("J1")
Range("H" & contador) = Left(Range("H" & contador), 5)
Next
End Sub
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Eu consegui, trocando algumas informações
Sub sbAjustaVendedor()
For contador = 2 To Range("J1")
Range("H" & contador) = Left(Range("H" & contador), 5)
Next
End Sub
Oi, Mara! Como vai?
Agradeço por compartilhar suas reflexões e aprendizados com a comunidade Alura. Gostei da sua solução no desafio, a lógica do loop para percorrer as linhas ficou bem clara e funcional.
Continue praticando e testando variações, pois isso fortalece muito sua autonomia com macros. ✨
Conte com o apoio do Fórum na sua jornada. Abraços e bons estudos!
Conte com o apoio da comunidade Alura na sua jornada. Abraços e bons estudos!
Para saber mais: 
ARTIGO