Pour le problème de la sauvegarde de la feuille active, il faudrait savoir ce que contiennent tes 2 cellules.
Pour l'envoi du fichier en tant que pièce jointe, tu peux utiliser Sendmail :
Function Test_Mail() As Boolean
Test_Mail = Application.MailSystem <> xlNoMailSystem
End Function
Sub Envoie_Mail()
If Test_Mail = True Then _
ActiveWorkbook.SendMail Recipients:="xx@xx.fr"
End Sub
il faut bien sûr que l'adresse mail donnée soit valide, sinon tu auras une erreur.
Tu as également la possibilité d'utiliser EnvelopeVisible mais je ne te le conseille pas, c'est source de complications et l'envoi n'est pas automatique, sauf à bricoler avec des SendKeys.