Você pode escrever uma macro para um link de alteração de célula Você pode achar útil ler este tópico: link
Aqui está o exemplo de trabalho (tentei no meu computador)
Private Sub Worksheet_Change(ByVal Target As Range)
Set KeyCells = Range("A1:C10")
Set isect = Application.Intersect(KeyCells, Range(Target.Address))
If Not isect Is Nothing Then
Application.EnableEvents = False
isect.Value = isect.Value - 40
Application.EnableEvents = True
End If
End Sub