macro to save to new workbook and clear sheet

How would I go about adding a button and macro to this attached file that will allow me to save all the data on the Readings sheet to a new workbook/ save it as date done and close and then clear the data in the Readings sheet. Is it possible to do this without interupting the active macro that populates the Readings Sheet?

Thanks,

Martin