Copiar valores de células de uma planilha para outra - Excel

Boa tarde,

Quero copiar os valores das células J1:R1 de uma planilha (aberta ) para outra planilha (fechada), contudo acho que estou errando na ativação da planilha, porque sempre me aparece o erro "Subscrito fora do intervalo".

Percebo que consigo selecionar o intervalo, abrir a planilha perfeitamente, mas ele não cola os dados.

Segue o código abaixo:

   'Copia as células de J1 até R1
   Range("J1:R1").Select
   Selection.Copy
   
  'Abre Planilha de Contas Final
   Dim WApp As Object
   Set WApp = CreateObject("Excel.Application")
   WApp.Workbooks.Open ("C:\Users\f3868527\Desktop\PLANILHA PRESTAÇÃO DE CONTAS FINAL 21.09.xlsm") 'endereço
   WApp.Visible = True
   WApp.WindowState = xlNormal
   
   'Espera 3 segundos
   Sleep 3000
   
   'Colar os dados na planilha recém aberta
   ActiveWorkbook.Sheets("CONTAS_ABERTAS").Select  
   Application.Goto Reference:="R1048576C1" 'desce pra última célula
   Selection.End(xlUp).Select ' sobe ultima célula preenchida
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Olá este forum é exclusivo para Access

sds

Acredito que estou numa área chamada Off Tópic - Assuntos Variados, definida pelo fórum como sendo uma "Sala destinada a novidades ou duvidas gerais, curiosidades e outros assuntos relacionados ou não com Ms Access."

Se estivesse no lugar errado, um moderador deveria intervir...

#fikdika

ok meu caro, o alerta foi no sentido de que terás resultado mais rápido em um forum especifico conforme sua necessidade.

Como próprio título diz Access.

Boa sorte na resolução de sua pergunta.

sds.

Acredito que esteja certo, mas não foi nada disso que tu disse na primeira mensagem.

Vale a pena tentar =)