VBAで別シートにデータを張り付けたいのですが、うまくいきません。

Question

6,18,30,,,,,,,,,,,行と、
13,25,37,,,,,,,,,行をコピーしてシート2に貼り付けたいです。
10列までデータがあります。
マクロの記録を修正して作ったのですが、うまくいきません。
なぜか、Range("A3").Selectのところ？？がおかしいみたいですが、わかりません。
よろしくお願いいたします。

Sub Macro1()
'
' Macro1 Macro
'

'
Z = 1
For x = 18 To 1000 Step 12
For y = 25 To 1000 Step 12

Range(Cells(x, 1), Cells(x, 10)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A3").Select
ActiveCell.Offset(Z, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range(Cells(y, 1), Cells(y, 10)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A4").Select
ActiveCell.Offset(Z, 0).Range("A1").Select
ActiveSheet.Paste
Z = Z + 1

Next y
Next x

End Sub

Comments

[sysjojo]

具体的にどうおかしいか書かれるとよいかと。ためしに新規作成した白紙のシートで走らせてみましたが、特にエラーなく最後まで通るのでコピーしている内容か、シートの設定に原因があるような気がします。

[hatena19]

2重ループにする必要性があるのでしょうか。具体的に何をしたいのか、データ例と結果を提示して説明されると回答が付きやすいと思います。

Answer 1

超長期の月次経済データのようなもので特定の2つの月のみを取り出して転記するということが必要でした。
2重ループになってるということでわけて作って、少し修正すると、目的ができました。
ありがとうございました。
質問への追記依頼がヒントになりました。
ありがとうございました。