I assume that you don't want a totally blank sheet but to delete just the employee data? Is this correct? Do you want the new sheet to be named using the current date? It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your sheet. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).open a duplicate of the original (blank)
Sub CopyTemplate()
Application.ScreenUpdating = False
Sheets("Primary").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Replace(Date, "/", ".")
Application.ScreenUpdating = True
End Sub