VBAで1つのブックから別のブックへ範囲を効率的にコピー＆ペーストする方法は？

Question

あるブックから別のブックにコピーして貼り付ける方法を理解しましたが、最も効率的ではありません。 1つのブックから範囲をコピーし、2番目のワークブックのセルA3に貼り付けたいと思います。ここに私のコードです（私は、私はこの質問で、それを含んでいませんでした私のすべての変数を設定されています）：

Dim wb1 As Workbook 
Dim wb2 As Workbook 
Dim wb1s1 As Worksheet 
Dim wb1s2 As Worksheet 
Dim wb2s1 As Worksheet 
Dim wb2s2 As Worksheet 

    wb1.Activate 
     With wb1s1 
     .Range(.Range("A14"), .Range("F" & .Rows.Count)).Copy 
     End With 

    wb2.Activate 
     With wb2s1 
     .Range("A3").PasteSpecial xlPasteAll 
     End With 


    wb1.Activate 
     With wb1s2 
     .Range(.Range("A14"), .Range("F" & .Rows.Count)).Copy 
     End With 

    wb2.Activate 
     With wb2s2 
     .Range("A3").PasteSpecial xlPasteAll 
     End With 

は今、私はその効率を高めるために、このコード行を試してみましたが、それは私のために働いていません。

wb1.wb1s1.Range("A14", ("F" & Rows.Count)).Copy Destination:=wb2.wb2s1.Range("A3") 

「オブジェクトがこのプロパティまたはメソッドをサポートしていません」というエラーが表示されます。どんな助けでも大歓迎です。

Answer 1

私はあなたがワークシートを二重参照するべきではないと思います。

が

が

wb1s1.Range("A14", ("F" & Rows.Count)).Copy Destination:=wb2s1.Range("A3") 

ワークブックWB1は "プロパティまたはメソッド" wb1s1をサポートしていないしてみてください、また

質問のこの種のは、[コードレビュー]に適してい