Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("A")) Is Nothing Then
        Application.EnableEvents = False
Dim Sht As Worksheet
Dim iLastRow As Long
Dim Naimenovanie As Range
Dim FoundNaimenovanie As Range
Dim TSena As Range
    For Each Sht In Worksheets
      If Sht.Name <> "заказ" Then
        With Sht
         Set Naimenovanie = .Rows("1:2").Find("Наименование", , xlValues, xlWhole, 2)
         Set FoundNaimenovanie = .Columns(Naimenovanie.Column).Find(Target, , xlValues, xlWhole)
          If Not FoundNaimenovanie Is Nothing Then
            Set TSena = .Rows("1:2").Find("Цена", , xlValues, xlWhole)
             If Not TSena Is Nothing Then
               Target.Offset(, 4) = .Cells(FoundNaimenovanie.Row, TSena.Column)
               Target.Offset(, 1) = Sht.Name
             End If
          End If
        End With
      End If
    Next
    End If
    Application.EnableEvents = True
End Sub

Set FoundNaimenovanie = .Columns(Naimenovanie.Column).Find(Target, , xlValues, xlWhole)

Sub МакросМС ()
'
' МакросМС Макрос
'
' Сочетание клавиш: Ctrl+q
'
    Range("H2").Select
    Selection.ClearContents
    Range("A2").Select     

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
   Application.OnKey "{~}", "StartEnter"   
End Sub 

Sub МакросМС1()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.OnKey "{~}", "StartEnter"
End Sub
    Range("H2").Select
    Selection.ClearContents
    Range("A2").Select
    Selection.ClearContents
    With Selection.Interior  

Application.OnKey "{~}", "StartEnter"

Application.OnKey "{ENTER}", "StartEnter"