Metodo Copy Destination

[Adonias]

Pessoal, alguém poderia dizer onde está o erro desse código?

Veja, se coloco apenas o codigo abaixo o conteudo é colado no devido lugar só que como a célula copiada é uma fórmula, na colagem gera #REF
Selection.Copy Destination:=W.Cells(2, 2)

agora se eu coloco o código abaixo surge um erro no Paste:=xlPasteAll
Selection.Copy Destination:=W.Cells(2, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

[Reinaldo]

O erro reportado refere-se a falta de uma virgula entre PasteSpecial e Paste;
porem; posso estar enganado; mas o método "Destination" não suporta o pastespecial, somente "colagem" direta

[Adonias]

Esqueci d e anexar a planilha.
Veja que sao dois arquivos.
a pasta import tem o código que irá solicitar qual arquivo que importar dados. Deve Escolher o arquivo RECE

[Reinaldo]

Para a copia, que e o objetivo do post,experimente algo +/- assim

Código: Selecionar todos

Sub Macro3()
    Workbooks("RECE.xls").Sheets("Plan2").Range("J6:J13").Copy
    Workbooks("Importa.xls").Sheets("Planilha1").Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub