In the line above End Sub, enter:
ThisWorkbook.Save