You could add a button and then add some code behind the button. Maybe
like so:
Private Sub CommandButton1_Click()
Dim sNewFileName as String
sNewFileName = "C:\File_" & Format(Date, "YYYYMMDD") & ".xls"
ThisWorkbook.SaveCopyAs sNewFileName
Sheet1.Range("B2:B20").ClearContents
End Sub