Sub Кнопка1_Щелчок()
Dim Rng1 As Long, iVals&, iVals2&, d1& 'объявляем 4 переменные
   d1 = Cells(Rows.Count, 8).End(xlUp).Row
   
   Set Vals1 = Sheets("Лист1").Columns(1).Find("Z1 max", , xlFormulas, xlWhole)
     iVals2 = Vals1.Row
   Range(Cells(iVals2, 1), Cells(iVals2, 10)).Interior.Pattern = xlNone
   Cells(iVals2, 1).Clear
   Range("H2:H" & d1).Interior.Color = 5296274
   iVal1 = Sheets("Лист1").Range("I1").Value 'запоминает значение максимальной высотной отметки 1 значение из ячейка I1 Лист1
    Set Vals = Sheets("Лист1").Columns(8).Find(iVal1, , xlFormulas, xlWhole) 'осуществляем поиск.
    If Vals Is Nothing Then 'если ничего не нашли, то выводим сообщение
        MsgBox "Значение " & Rng1 & " не найдено в столбце А на Лист1", vbExclamation, "Ошибка"
         Else
        iVals = Vals.Row
        Cells(iVals, 1).Value = "Z1 max"
         Range(Cells(iVals, 1), Cells(iVals, 10)).Interior.Color = 255
    End If
    
    
    
End Sub

     

Sub Кнопка1_Щелчок()
Dim Rng As Range, iVal As Variant  'объявляем 2 переменные
    Set r = Range("A:A").Find("Z1max")
        If Not r Is Nothing Then r = ""
    iVal = Sheets("Лист1").Range("I1") 'запоминает значение максимальной высотной отметки 1 значение из ячейка I1 Лист1
    Set Rng = Sheets("Лист1").Columns(8).Find(iVal) 'осуществляем поиск.
        If Not Rng Is Nothing Then 'если ничего не нашли, то выводим сообщение
            Cells(Rng.Row, 1) = "Z1max"
            'Range(Cells(Rng.Row, 1), Rng).Interior.Color = vbRed
        Else
            MsgBox "Значение " & iVal & " не найдено в столбце А на Лист1", vbExclamation, "Ошибка"
        End If
End Sub