Unfortunately from the way your initial post was written, it looked like you had the intention to use the new sheet to contain data.

This concept is based on the template being a hidden sheet in your workbook. if this doesn't work then sing out and we'll have another go

Sub CopyTemplate()
    Dim ws as Worksheet
    Namebase = Format(Date,"dd,mm,yyyy)
    Set ws as Sheet1
    ws.visible = xlSheetVisible
    s = Sheets(Sheets.Count).Name
    ws.Copy After:=Sheets(s)
    ActiveSheet.Name = NameBase
    ws.Visible = xlSheetHidden
End Sub