Copy Worksheet To End Or Far Right Of Sheet Tabs

This macro helps me create a blank worksheet and automatically names it from the list in column A. Unfortunately, it adds the worksheets to the left of my 'master' sheet called "Tab Names". When I try adding "after" when it adds a new sheet, I keep getting a "compile error: Expected: end of statement". I am positive you will know what steps I'm missing.

' Vendor List Subroutine to
' Open New Worksheet called Tab Names worksheet
' With data from Tab Names
' Rename sheet to name from list and start again
' For all names in list
Sub NewTabsFromList()
Dim cCell As Object, i As Integer 'Two variables cCell (current Cell) object and i (standard counting integer)
Cells(1, "A").Select 'Ensure that we start each time at the top of the worksheet
Application. ScreenUpdating = False 'Turn of screen updates whilst macro is running
For Each cCell In Range(Cells(1, "A"), Cells(1, "A").End(xlDown)) 'Will run our code through each cell with text
Set NewSheet = Sheets.Add(Type:=xlWorksheet) 'Add new worksheet
NewSheet.Name = "Tab Names Worksheet" 'rename worksheet
Sheets("Tab Names worksheet").Name = cCell.Value
Next cCell
End Sub