Sub PoiskTER()
Dim Sht As Worksheet
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
Dim Col_TER As Integer
     iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
     Range("C3:D" & iLastRow + 1).ClearContents
     Range("F3:G" & iLastRow + 1).ClearContents
     For i = 3 To iLastRow Step 2
       Cells(i, "E") = 0
       Cells(i, "H") = 0
     Next
  For Each Sht In Worksheets                            'цикл по всем листам
    If Sht.Name <> "Общая" Then
      With Sht
       Set FoundCell = .Rows("3:6").Find("Шифр и номер позиции норматива", , xlValues, xlWhole)            'поиск
        If Not FoundCell Is Nothing Then
          Col_TER = FoundCell.Column
          For i = 3 To iLastRow Step 2
          If Not Cells(i, "A") Like "цена поставщика*" Then
           Set FoundCell = .Columns(Col_TER).Find(Cells(i, "A"), , xlValues, xlWhole)
           If Not FoundCell Is Nothing Then
             If Sht.Name = "Лист2" Then
              .Range(.Cells(FoundCell.Row, "C"), .Cells(FoundCell.Row + 1, "D")).Copy Cells(i, "C")
              Cells(i, "E") = Replace(.Cells(FoundCell.Row, "E"), ".", ",")
             Else
              .Range(.Cells(FoundCell.Row, "C"), .Cells(FoundCell.Row + 1, "D")).Copy Cells(i, "F")
              Cells(i, "H") = Replace(.Cells(FoundCell.Row, "E"), ".", ",")
             End If
           End If
          End If
           Set FoundCell = Nothing
          Next
        End If
        Set FoundCell = Nothing
      End With
    End If
  Next
End Sub