Just write the following code on your "VBA Project" -> "This Workbook":
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range)
Dim KeyCells As Range
Set sh = ActiveSheet
Set KeyCells = sh.Range("B20:e25") ''''change the range to your range
If Not Application.Intersect(KeyCells, sh.Range(target.Address)) _
Is Nothing Then
End Sub
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range)
Dim KeyCells As Range
Set sh = ActiveSheet
Set KeyCells = sh.Range("B20:e25") ''''change the range to your range
If Not Application.Intersect(KeyCells, sh.Range(target.Address)) _
Is Nothing Then
'''''''''''please write your code here'''''''''''''
End IfEnd Sub