Sub Макрос1()
     Dim m$, h$, l$, rRange As Range, cell As Range
     m = Replace(Sheets("Поиск").Range("F6").Text, ",", ".")
     h = Replace(Sheets("Поиск").Range("F8").Text, ",", ".")
     l = Replace(Sheets("Поиск").Range("F10").Text, ",", ".")
     Sheets("Поиск").Range("J5").Value = ""
     With Sheets("Данные")
         .Columns("A:E").AutoFilter
         .Range("A:E").AutoFilter Field:=3, Criteria1:=">=" & l, _
                    Operator:=xlAnd
         .Range("A:E").AutoFilter Field:=4, Criteria1:=">=" & m, _
                    Operator:=xlAnd
         .Range("A:E").AutoFilter Field:=5, Criteria1:=">=" & h _
                    , Operator:=xlAnd
'        Set rRange = Intersect(.UsedRange, .Columns("A").Cells.SpecialCells(12))
'        .Columns("A:E").AutoFilter
         .Activate
     End With
'    With CreateObject("Scripting.Dictionary")
'        For Each cell In rRange
'            If cell.Value <> "Название крана" Then .Item(cell.Value) = 1
'        Next
'        Sheets("Поиск").Range("J5").Value = Trim$(Join(.keys, vbLf))
'        Sheets("Поиск").ListBox1.List = .keys
'    End With
End Sub