excel マクロコードを教えていただきたいです
マクロ初心者のため、単純な動作しか分からず困っています。
以下の表とマクロコードを確認していただき、教えていただきたいです。
ファイル【Book1】の表
A B C D E F G
1 data1 ボタン1
2 data2 ボタン2
3 data3 ボタン3
4 data4 ボタン4
5 data5 ボタン5
6 data6 ボタン6
・ ・
・ ・
・ ・
※Gの列にはハイパーリンクが並んでいます。
※ハイパーリンクにて各ファイル（data1・data2・data3・・・・）が開きます。
※各行の右端にはフォームのボタンを設置しています。
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
Sub Macro1()
Range("G1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Book1.xls").Activate
Range("A1:F1").Select
Selection.Copy
Windows("data1.xls").Activate
ActiveSheet.Paste
End Sub
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
今の動作としては、ボタン1を押す事でファイル”Book1”のG1のハイパーリンク（data1.xls）が開き、
”Book1”のA1からF1をコピーして、data1のsheetに貼り付けています。
これで、当初は5行ぐらいの表でしたので、毎回、上記の行番号を変更したコードを入力し、各ボタンに
登録していました。ただ今後、この表の行が多くなるとの事で、毎回、この作業を行うわけにもいかず、
何か良い案（マクロ）があれば教えていただきたいです。
やりたい事としては、マクロの実行にて、ハイパーリンクが立ち上がりその行の内容を、その立ち上がった
ファイルのsheet2のセルA1:F1に貼り付けたいと思っています。
例としては、立ち上げたい行(セル)をクリックしておいて、ボタンを押すと上記のマクロが開始するなど・・・。
出来もしないのに生意気で申し訳ありませんが、教えていただけると助かります。よろしくお願い致します。
