Use list to input employee ID to template, copy it, and repeat next down in list

.
So ...... what you will end up with, is the existing workbook with 200 individual sheets, each sheet is a template for the specific Employee Number.

You are not needing the sheet tab name to be changed for each employee number ?

Also, you have stated pasting the Employee ID Number in the appropriate location .... but not the name ?

If you can make so that it names it with the employee ID that would be great.
In my master document each individual tab will be named with the following naming convention.

EmployeeID_LastName
Eg. 11111_Smith

If I can go into the code later and augmented for this format that would be great.

thank you thank you!!!!!!

.
Give me some time. Lots of projects going on at this time.

Thank you so much I am at your mercy I don't need this probably for another week or two until I have to migrate everything together because I don't actually have all the data feeds... Thank you kindly

.
Paste in a REGULAR MODULE :

Option Explicit

Sub CopyMaster()
Dim ws  As Worksheet, sh As Worksheet
Dim Rws As Long, rng As Range, c As Range

Set sh = Sheets("List")
Set ws = Sheets("Template")

Application.ScreenUpdating = False
    
    With sh
        Rws = .Cells(Rows.Count, "A").End(xlUp).Row
        Set rng = .Range(.Cells(2, 1), .Cells(Rws, 1))
    End With
    
    For Each c In rng.Cells
        
        If WorksheetExists(c.Value) Then
            MsgBox "Sheet " & c & " exists"
        Else:
            ws.Range("D4").Value = c.Value
            ws.Range("D5").Value = c.Offset(0, 1).Value
            ws.Copy After:=Worksheets(Worksheets.Count)
            Worksheets(Worksheets.Count).Name = c.Value & " - " & ws.Range("D5").Value
        End If
    
    Next c
    
    ThisWorkbook.Save
    
Application.ScreenUpdating = True

MsgBox "Process Complete !", vbInformation, "Task Progress"

End Sub

Function WorksheetExists(WSName As String) As Boolean
    
    On Error Resume Next
    WorksheetExists = Worksheets(WSName).Name = WSName
    On Error GoTo 0
    
End Function

All I have to say is wow. I wish I could do what you can do.
Amazing. Thank you thank you!

.
You are welcome.