one way:

Put this in your worksheet code module (right-click the worksheet tab
and choose View Code):

   Private Sub Worksheet_Change(ByVal Target As Excel.Range)
       If Not Intersect(Target, Range("B15,B45,E15")) Is Nothing Then _
           ThisWorkbook.Save        
   End Sub