renankaic,

Boa tarde!

Não testei...

Tente usar assim:

Worksheets(1).Cells(linha, coluna).value = Str(Worksheets(2).Cells(linha, coluna).Value & "." & Worksheets(3).Cells(linha, coluna).Value)

Wag, boa tarde!
Cara muito obrigado! Mas tentei aqui e não deu certo pois nem sempre vem números na planilha, as vezes também tem letras e outros simbolos, entao deu erro de sintaxe
E agora? será que tem outro jeito?

Compacte seu arquivo com .ZIP e anexe aqui mesmo no fórum.

Estou colocando em anexo conforme solicitado. A macro está gravada no arquivo Layout_EAB.xlsm e a macro lê a partir do arquivo EAB.xlsx que veio junto (aponte a ele caso tente rodar a macro). Ah e crie as colunas primeiro para depois clicar para ir o Layout.

Qualquer duvida estou a disposição.

Não vi código algum na sua planilha .xlsm, mas se vc estiver utilizando o Excel 2013 ou 2016 a melhor ferramenta p/ fazer isso q vc quer é o Power Query / Nova Consulta.

Dá uma olhada nesse vídeo q mais ou menos demonstra o potencial do Power Query / Nova Consulta p/ resolver o seu caso.

Com relação a sua demanda, o que ocorre é que o VBA entende,para numeros, o ponto como separador decimal, assim ao passar o "valor" à planilha e feita a conversão.
Uma maneira de contornar esse problema, é formatar previamente as colunas afetadas como texto.
Experimente alterara rotina que "cria" as colunas acrescentando a linha
Workbooks("Layout_EAB.xlsm").Worksheets(1).Columns(coluna).NumberFormat = "@"

Do While Tem_Valor = True
    Valor = Workbooks(nomeorigem).Worksheets(1).Range("A" & A)
    Workbooks("Layout_EAB.xlsm").Worksheets(1).Cells(linha, coluna).Value = Valor
    Workbooks("Layout_EAB.xlsm").Worksheets(1).Columns(coluna).NumberFormat = "@"
    A = A + 1

Reinaldo

Opa, bom dia. Cara, muito obrigado mesmo. Adicionar esse NumberFormat = "@" foi o que solucionou meu problema.
Valeu pessoal!!