Copy "Template" worksheet, Paste, and Rename -then add more ws's as customer list changes.

Try this

Public Sub CopyData()
' Determine how many Dealers are on Master Sheet
FinalRow = Worksheets("CustomerMaster").Range("A" & rows.count).End(xlUp).Row
'Loop through each Dlr Acct # on the data sheet
For x = 2 To FinalRow
Dlr = Range("A" & x).Value
If Not Evaluate("ISREF('" & Dlr & "'!A1)") Then
     worksheets("Template").copy after:=worksheets(worksheets.count)
     activesheet.name=dlr
End If
Next x

End Sub