Below is the code:
Function create_sheets()
Dim i As Long, LastRow As Long, ws As Worksheet
Sheets("Names").Activate
LastRow = 4
For i = 1 To LastRow
'copy sheet from template
Sheets("Template").Copy After:=Sheets(i)
ActiveSheet.Name = Sheets("Names").Cells(i, 1)
'update dc number
ActiveSheet.Range("b2").Value = ActiveSheet.Name
Next i
MsgBox "Done creating sheets"
End Function