リンク貼り付けをマクロで簡素化したい

質問

1）個人票ブック（太郎シート　花子シート　次郎シー・・・・・）の各シートのＡ1からＡ5まで、値や公式がはいっています。

2）このシートのＡ1からＡ5までの値等を、別の総括表ブック(一枚のシートしかない）にリンク貼り付けをします。

3）まず、太郎シートのＡ1～Ａ5までは、総括表ブックのＢ列にリンク貼り付けするマクロボタンを、太郎シートに設置します。

4）さらに、花子シートのＡ1～Ａ5までは、総括表ブックのＣ列にリンク貼り付けするマクロボタンを、花子シートに設置します。

5）そして、次郎シートのＡ1～Ａ5までは、総括表ブックのＤ列にリンク貼り付けするマクロボタンを、次郎シートに設置します。

6）こうしてマクロボタンを順次貼り付けていきます。

7）各シートの貼り付け場所は列に貼り付けていきますが、上から順番ではなく、任意に飛んでいますが、
　各シートの行は、みな一律で同じ行です。
列は違っても皆おなじ行にリンク貼り付けしたいです。

このような操作をマクロ記録でつくりましたが、膨大な作業が必要です。これをなんとかＶＢＡで簡素化したいのですが・・よろしくお願いします。

回答No.1

redfox63

そんなに膨大な作業量になるのでしょうか？
これは実際の作業がということなのでしょうか … 対象のファイルが膨大な量があるとか

マクロ自体を一本化したいとかですか
現行のコードをどのように改善したいのかを具体化してみましょう

総括表シートに『リンク貼り付け』なのですからこれが複数回あるというのも考えにくいですし ・・・

補足

1枚のシートにつき次のマクロを書いています。

Sub 日本太郎データ貼付()　　’Ｇ列に貼り付け
Application.ScreenUpdating = False
Workbooks("個人別データ").Activate
Range("H3").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ6").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Workbooks("個人別データ").Activate
Range("H4").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ7").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Range("H5").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ8").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Range("H6").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ14").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Workbooks("個人別データ").Activate
Range("H7").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ19").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Workbooks("個人別データ").Activate
Range("H8").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ23").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Range("H9").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ26").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Range("H10").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ28").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Workbooks("個人別データ").Activate
Range("H11").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ42").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Workbooks("個人別データ").Activate
Range("H12").Select
Selection.Copy
Workbooks("総括表").Activate
Worksheets(1).Select
Range("Ｇ44").Select
ActiveSheet.Paste Link:=True
'Worksheets(1).Select '日本太郎
'-----------------------------------------------
Application.CutCopyMode = False 'コピーモード解除
MsgBox "転記しました。"
Worksheets(1).Select
End Sub

ブック（個人別データ）に個人別シートが２０枚あり、各シートのＨ3からＨ12（固定）の値や式を
ブック（総括表）の一枚のシートの各列の行（固定6,7,8,14,19,23,26,28,42,44）に貼り付けます。
列は20名の各人により、割り当てられています。

ブック個人別データのシートは増減が常にあります。