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

質問

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

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

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

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

回答の通りです。

回答No.1

hana-hana3

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

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

補足

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