How to SaveAs + date and filename?

Question

I have this piece of code:

ActiveSheet.Buttons.Delete
Dim FileToSave As Variant
FileToSave = Application.GetSaveAsFilename(fileFilter:="xlsx Files (*.xls