エクセルマクロ セルの貼り付けについて

マクロ初心者でわからないことばかりで困っております。


For i = 1 To 721 Step 80

Sheets("Sheet2").Activate
Range("G3").Select
ActiveCell.FormulaR1C1 = i
Range("A1:D80").Select 　
Selection.Copy
Sheets("Sheet3").Activate

このあとにコピーしたもの「Range("A1:D80").Select」をセルに貼り付ける時に一回ごとに80行ずつずらして貼り付けたいのですが、そのような場合は　どのようにRange指定して貼り付ければよろしいのですか？

sheet2で演算した結果をsheet3のセルA1からA721まで貼り付けたいのです。一回の演算で80行まで計算されます。
わかりずらくて申し訳ありません。

No.3 回答者： DIooggooID 回答日時： 2008/04/17 16:46

Sub MacroX()

'
Sheets("Sheet3").Activate
Range("A1").Select
'
For i = 1 To 721 Step 80
'
Sheets("Sheet2").Activate
Range("A1:D80").Select
Selection.Copy
Sheets("Sheet3").Activate
ActiveSheet.Paste
'
ActiveCell.Offset(80, 0).Select
'
Next
'
End Sub

No.2 回答者： hana-hana3 回答日時： 2008/04/17 11:38

＞その場合はどのようにすればよろしいのでしょうか？

回答の通りです。

No.1 回答者： hana-hana3 回答日時： 2008/04/16 22:59

貼り付け先が不明ですが・・・

For i = 1 To 721 Step 80
With Sheets("Sheet2")
Sheets("Sheet3").Cells(i, 1) = .Range("A1:D80")
End With
Next

この回答への補足

説明不足ですみません。
シート２のセルＡ１からＤ８０をコピーして
シート３のセルＡ１からＡ７２１までデータを貼り付けたいのですが、
その場合はどのようにすればよろしいのでしょうか？

補足日時：2008/04/16 23:47