Oi, Anderson! Como vai?
Agradeço por compartilhar seu código com a comunidade Alura.
Gostei de ver como você estruturou os laços For para percorrer as linhas e ajustar os valores das colunas. A forma como utilizou Right e Left mostra atenção aos detalhes para corrigir os códigos de produto e vendedor.
Uma dica interessante para o futuro é usar o método Trim no VBA, que remove espaços extras antes ou depois de um texto. Por exemplo:
Sub exemploTrim()
Dim texto As String
texto = " Alura "
MsgBox Trim(texto)
End Sub
Esse código mostra a palavra Alura sem os espaços em branco.
Conte com o apoio da comunidade Alura na sua jornada. Abraços e bons estudos!