Sub getReductors()
        
    Dim cnn As Object
    Dim rst As Object
    Dim sql As String
                
    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
                            
    cnn.Open _
    "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.FullName & ";" & _
    "Extended Properties='Excel 12.0;HDR=Yes'"
            
    sql = sql & "SELECT TOP 8 * FROM [Лист1$B19:K65000] "
    sql = sql & "WHERE [n, об/мин] >= " & Replace(Range("Дано_Обороты"), ",", ".")
    sql = sql & "  AND [М, Нм] >= " & Replace(Range("Дано_Мощность"), ",", ".")
    sql = sql & " ORDER BY [Р, кВт], [n, об/мин], [М, Нм]"
                            
    rst.Open sql, cnn
                            
    With Range("Найденные_Редуктора")
        .ClearContents
        .Cells(1, 1).CopyFromRecordset rst
    End With
            
End Sub