セル範囲のコピー・貼り付け
セル範囲をコピーして貼り付ける場合、Copy メソッドと PasteSpecial メソッドで行うよりも Copy メソッドだけで一気に行った方が高速です。
' A2:D200 のセル範囲を、F2 を基点としたセル範囲に貼り付ける ActiveSheet.Range("A2:D200").Copy Destination:=wSheet.Range("F2")