You probably already know how to assign a macro button in the QAT. Let me know in case you don't. Use this following code for what you've asked.

Code:
Sub SaveAndCopyToAnotherLocation()

    ActiveWorkbook.Save
    FileCopy ActiveWorkbook.FullName, "D:\Updated\" & ActiveWorkbook.Name
    
End Sub