Que tal salvar sem apertar um botão?
Com este código você irá salvar sua planilha automaticamente na pasta que quiser e com o nome que desejar.

 

salvar

‘ 1 – Use este código quando a planilha já está salva no computador

ActiveWorkbook.Save

——————————————————-

‘2 – E para Salvar_Como, a planilha use  este código abaixo . Definindo novo lugar e nome

dirCopia = "diretorio do arquivo"
nomeCopia = "nome do arquivo"

ActiveWorkbook.SaveAs Filename:= _
dirCopia + nomeCopia, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

_____________________
Veja Também: Abrir Planilha