Boa tarde!!

Veja um exemplo destinto, tente adaptar, também use a pesquisa do fórum!!

Fonte: http://www.vbforums.com/showthread.php?t=510652

Sub Copy()
Dim wbk As Workbook

strFirstFile = "c:hack.xls"
strSecondFile = "c:vbf.xls"

Set wbk = Workbooks.Open(strFirstFile)
With wbk.Sheets("Data")
    Range("G14").Copy
End With

Set wbk = Workbooks.Open(strSecondFile)
With wbk.Sheets("MyDate")
    Range("E16").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End With

End Sub

Boa tarde
nao consegui adaptar, pois diz que a pasta ja esta aberta, e no caso esse comando estaria dentro da palnilha de PANILHA_ORIGEM , ou seja eu teria que estarr com ela em aberto, e mesmo assim se dou ok, nao copia as informações...

Tambem tentei e nao deu certo, anexo os modelos....

tenho duas planilhas origem e destino, gostaria de enviar as informações da planilha origem para destino, por meio de um comando de um botao do usuario, segue anexo as planilha onde mostro oque preciso...
Fiz uma conexao entre as duass planilhas, porem a planilha que recebe os dados tem formulas na colunas seguintes as colunas onde viram as infrmações que preciso, ai nao da certo, preciso tipo que copie e cole somente da coluna A até I...

Agradeço desde ja toda a ajuda ..
obrigada

Boa tarde!!

Rodrigo, eu estou sem tempo mas, caso alguém não te ajudar (creio que sim!!!), quando der vou olhar seu caso!!

Srs. O codigo postado pelo colega Alexandre, parte da premissa de estar sendo executado de uma terceira planilha, e que as duas envovidas "na troca" de informação estão fechadas.
Utilzando os modelos apresentados pela Erica, segue uma adaptação do codigo, para executar à partir da planilha que irá receber os dados.

Sub Copy()
Dim wbk As Workbook
Application.ScreenUpdating = False
'strFirstFile = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name '"c:hack.xls"
strSecondFile = ThisWorkbook.Path & Application.PathSeparator & "PLANILHA_ORIGEM.xlsx" '"c:vbf.xls"

Set wbk = Workbooks.Open(strSecondFile)
wbk.Sheets("APURACAO").Activate
        Range("A2:I" & Cells(Cells.Rows.Count, "A").End(xlUp).Row).Copy

ThisWorkbook.Sheets("EXPORTADO").Activate
    Range("A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
wbk.Close (SaveChanges = False)
Application.ScreenUpdating = True
    
End Sub

Era isso mesmo que precisava ....
porem no caso se a planilha de origem estiver aberta ele mostra a menssagem que ja esta aberta, e se da sim ele fecha a origem sem salvar, isso nao tem como mexer né... tipo se a planilha estiver aberta ela salva antes de fexar...

Boa noite, segue um anexo da rotina que criei para importação, recorte a pasta Bdados e cole em sua area de trabalho abra a planilha Destino e importe vai gerar um erro que estar tratado voce vai precisa entrar no codigo e mudar apenas o caminho.

att MarkoSoftware