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

I am working with a Workbook that contains a Template worksheet and a CustomerMaster worksheet. I use the script below to make a copy of the Template, and rename the copied template based on Column A of the CustomerMaster worksheet. The Customer Information changes from time to time on CustomerMaster (Customers are added to the list but never removed). My challenge is this. I need to create worksheets for each newly added customer, without modifying the already copied and renamed worksheets produced by running the VBA previously. So I would like to modify my VBA script to only create a template worksheet for newly added Customers only in Column A of CustomerMaster.

Public Sub CopyData()
' Determine how many Dealers are on Master Sheet
FinalRow = Range("A65000").End(xlUp).Row
'Loop through each Dlr Acct # on the data sheet
For x = 2 To FinalRow
LastSheet = Sheets.Count
Sheets("CustomerMaster").Select
Dlr = Range("A" & x).Value
'Make a copy of TEMPLATE and move to end
Sheets("Template").Copy After:=Sheets(LastSheet)
'Rename the Sheet
Sheets(LastSheet + 1).Name = Dlr
Next x

End Sub

Please help!

Thanks,

Adam

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

Oops, i think i got it. 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 = worksheets("CustomerMaster").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