Sub シート全体をコピーする()

    Cells.Copy

End Sub

動作が重くなることが多いので注意が必要ですが、データ量が少ない場合は、 すべて一括でコピーしてくれるので便利です。場合によって使い分けするのがベストです。