EXCEL VBAについて質問です。

質問文の動作がよく分からなかったので、勝手に変えさせていただきました。
違かったらすいません。
①ボタンを押すと、同じフォルダにあるリスト.xlsxからリストのデータを読み込む
②読み込んだデータを、原本_ツール.xlsに反映
③反映したら、同じフォルダに「(名前).xls」という名前で保存する
④保存したファイルを閉じる
⑤「名前」の数だけ繰り返す

※質問文に書いてあるファイル名と、画像のファイル名が違っていたので、画像の方に合わせました。

• リスト.xlsx
• 原本_ツール.xls

以下で動作すると思います。※先に「ボタン 1」に「Test_1」を実行するように設定しておいてください。

Sub Test_1()
Dim tSht
Dim lSht
Dim aSht
Dim lr
Dim lc
Dim x
Dim y
Dim a()

Workbooks.Open ("C:\この部分は書き換えてください\個人ファイル\リスト.xlsx")
Set tSht = ThisWorkbook.Worksheets("Sheet1")
Set lSht = Workbooks("リスト.xlsx").Worksheets("Sheet1")
lr = Range("a1").End(xlDown).Row
lc = Range("a1").End(xlToRight).Column
ReDim a(lc - 1)

For x = 2 To lr
    
    For y = 0 To lc - 1
        a(y) = lSht.Cells(x, y + 1).Value
    Next
    
    Workbooks.Add
    Set aSht = ActiveWorkbook.Worksheets("Sheet1")
    tSht.Cells.Copy (aSht.Cells)

    For y = 0 To lc - 1
        aSht.Cells(y + 2, 3).Value = a(y)
    Next
    
    ActiveWorkbook.SaveAs a(0) & ".xls", xlWorkbookNormal
    ActiveWorkbook.Close
Next

Workbooks("リスト.xlsx").Close
End Sub

このコードは、「リスト.xlsx」にあるリスト(表)が縦にも横にも伸びても、対応できるようになっていると思います。
また、「原本_ツール.xls」の最初からある表をコピーして「(氏名).xls」を作るようになっているので、表やその周りに塗りつぶしなどの書式設定をしている場合、これもコピーできると思います。