Veja se aproveita algo.
O código abaixo "copia" os conteúdos das células do intervalo 'B3:B12' para a Área de Transferência e cola em 'E3:E12'.

Sub CopiaParaAT()
 'marcar a Referência  'Microsoft Forms 2.0 Object Library
 Dim conteúdo As New MSForms.DataObject
 Dim k As Long
  For k = 3 To 12
   conteúdo.SetText Text:=ActiveSheet.Range("B" & k).Value, Format:=1
   conteúdo.PutInClipboard
   Range("E" & k).PasteSpecial
  Next k
  'conteúdo.SetText Text:="" 'limpa a Área de Transferência
End Sub

Osvaldo,

Na linha Dim conteúdo As New MSForms.DataObject tá dando o erro abaixo:

Compile error:

User-defined type not defined

Abraço!

Conforme está comentado logo abaixo do nome no código que passei ('marcar a Referência 'Microsoft Forms 2.0 Object Library), é preciso marcar a Referência, assim: no menu do editor de VBA Ferramentas / Referências ---> procure e marque a referência Microsoft Forms 2.0 Object Library / OK

Show de bola Osvaldo!!

Conforme está comentado logo abaixo do nome no código que passei ('marcar a Referência 'Microsoft Forms 2.0 Object Library), é preciso marcar a Referência, assim: no menu do editor de VBA Ferramentas / Referências ---> procure e marque a referência Microsoft Forms 2.0 Object Library / OK