Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Dim KeyCells2 As Range
Dim KeyCells3 As Range

lr = Sheets("Лист1").Cells(Rows.Count, 6).End(xlUp).Row
lr2 = Sheets("Лист1").Cells(Rows.Count, 7).End(xlUp).Row
lr3 = Sheets("Лист1").Cells(Rows.Count, 8).End(xlUp).Row

Set KeyCells = Range("F1:H1" & lr)
Set KeyCells2 = Range("E1:E" & lr2)
Set KeyCells3 = Range("H1:H" & lr3)

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
MsgBox "1"
End If

If Not Application.Intersect(KeyCells2, Range(Target.Address)) _
Is Nothing Then
MsgBox "2"
End If

If Not Application.Intersect(KeyCells3, Range(Target.Address)) _
Is Nothing Then
MsgBox "3"
End If

End Sub