Macro to Save As a Copy of the File, Save the Original File, & Overwrite Previous Versions

The current macro that I am working with works fine, but it saves the original file as the name I would like to save the copy as. Additionally, I would like to save the file as Current Boat Log.xlsm (which it is currently saved as) and overwrite the previous edition of Current Boat Log.xlsm.

'saves/renames file to desktop

s1 = "C:\Users\006270**\Desktop\Vessel Logs\Current Data"
With Sheets("Lookup Data")
s2 = .Range("S46").Text
s3 = .Range("S47").Text
s4 = .Range("S48").Text
End With
s5 = s1 & "\" & s2 & " " & s3 & " - " & s4 & ".xlsm"
ActiveWorkbook.SaveAs Filename:=s5


Thanks,
Jordan