Try this:

Sub Auto_Quotes()
    Dim MyCell As Range, MyRange As Range
    
    Set MyRange = Sheets("Summary").Range("A2")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

    For Each MyCell In MyRange
        Sheets("Template").Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = MyCell.Value
    Next MyCell
End Sub
I am Imagining the next part is to fill in the information automatically too...If you need help, then let me know

ALSO: in future make sure any sheets you upload are anonymous!