Make your changes, save it, then run SaveArchive.

Here is the code I use to backup My Personal.xls. It is in the ThisWorkbook module of Personal.xls
Private Const BackUpDrive As String = "E:"
Private Const BackUpFolder As String = "MyPersonal"
Private Const BackUpName As String = "Personal.xls.Bak"
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
  MakeCopyOfPersonal
End Sub
Private Sub MakeCopyOfPersonal()
Dim TimeStamp As String
  
  If Len(Dir(BackUpDrive & "\" & BackUpFolder, vbDirectory)) = 0 Then
    MsgBox "Personal xls not backed up. Cannot find the Backup Folder"
    Exit Sub
  End If
  
  TimeStamp = Left(CStr(CDbl(Now)), 10) & "_"
  Me.SaveCopyAs (BackUpDrive & "\" & BackUpFolder & "\" _
               & TimeStamp & BackUpName)

End Sub
I don't care about the actual date in the name. I just want the copies in chronological order. You can have the date in chronological order by using the Format String "yyyy-mm-dd".

The Use of Constants and the no back up message is because over the years, I have moved things around and lost backups.