Eu tentei uma variedade de maneiras de fazer isso colar, mas nenhum deles está funcionando. Eu sou extremamente novo em programação, então eu preciso de alguma ajuda para entender porque eu continuo recebendo o erro 1004 ou 5. Eu nem entendo o que esses erros significam.

Cells(hotcell).Copy
Cells.Offset(0, 1).PasteSpecial

ou ... Colar, ... PasteSpecial = xlpasteall, ... pastespecial Colar: = xlpasteall, Range (Células ("B" & i)). colar, Range ("B" & i) .pasta e assim por diante como acima.

Eu estou em uma perda total. Tudo o resto do programa está funcionando bem. Eu não consigo copiar meus valores copiados nas células desejadas (todas compensadas por um certo número de colunas, mas na mesma linha). Ajuda e explicação tanto apreciada.

Editar Graças a ambas as respostas que recebi, consegui resolver o meu problema. Eu realmente não consegui encontrar uma boa resposta em qualquer lugar que eu olhasse. Obrigado!

A solução que usei foi uma das mais simples:

rng.Offset(0, 1) = rng.Text

Obrigado novamente aos pôsteres que responderam e aos que comentaram. Eu estava fazendo isso muito difícil.