2010 Excel VBA 測定結果を貼り付ける

質問

VBA初心者です。
どなたか教えていただけませんか？

測定した結果を各シート別に貼り付けを行いたいのです。

シート名は「データ」で、貼り付けたいデータはG列とI列。
貼り付けたいシート名は1、2、3、・・・15まであります。

データをG列の8個分のデータで行列を入替えて貼り付け（E6～L6）
I列も同様に8個分のデータを行列を入替えて貼り付け（E7～L7）
※シート1枚に行う作業はこれで終わりです。但し追記を行いますので基にデータが
　ある場合は倍数分飛んで入力を行いたいです。（G列の場合E6,E8,E10,E12・・・、I列の場合E7,E9,E11,E13)

マクロ開始時に貼り付けるシートを選択しその順番で各データの貼り付けを行いたいです。
データのG列、I列は連続データなので8個ずつのデータを選択したシート順に貼り付ける。

流れとしては
マクロ開始→入力シートを選択→データから各シートへコピーペースト

マクロ記録でやってみたのですがなかなかうまくいかず困っています。
大変申し訳ないですが教えて頂けないでしょうか？
知識はVBA入門編が理解できる程度なのでご指導宜しくお願いします。

回答No.1

queuerev2

15枚のシートにある8x2のデータ（元データ）を「データ」というシートに集約するということですね。

もしも元データのあるシートが15枚と決まっていて順番を可変にするだけなら、シート選択にCtrl+PageDownを使ったりすればマクロの記録だけでも何とかなりますよね。マクロを使用する際の流れはたとえば　元データのあるシートを順に並べる→マクロ開始　のようになりますが。

シートの枚数が決まっていなかったり、どうしてもマクロ開始後に入力シートを選択する流れにしたい場合にはVBAのコードを書く必要があると思います。
質問者様は記録したマクロの書き換えを試みられたのでしょうか？　もしそうであれば、記録ではどのあたりまでを行い、それを書き換えようとしてどのあたりがうまくいかないのでしょうか？