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