Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
Dim j As Integer
Dim iLastRow_m As Long
Dim iLastRow_r As Long
Dim iCell As Range
    Application.ScreenUpdating = False
With Sheets("results")
           iLastRow_r = .Cells(.Rows.Count, 1).End(xlUp).Row
           
           ' очистить диапазон на листе "results" под новые данные
           ' написать код
           
           iLastRow_m = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To iLastRow_m
        j = 0
        Do
            j = j + 1
        Loop Until Cells(i, 2 + j) = WorksheetFunction.Min(Range(Cells(i, 3), Cells(i, 5)))
           
           ' проверить вхождение Cells(i, 2 + j) в диапазон From:To
           ' если входит в диапазон, то переносим на лист "results"
           
           iLastRow_r = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
             .Cells(iLastRow_r, 1) = Cells(i, 1)
             .Cells(iLastRow_r, 2) = Cells(i, 2)
             .Cells(iLastRow_r, 2 + j) = Cells(i, 2 + j)
    Next
End With
    Application.ScreenUpdating = True
End Sub

 

Dim WbMP As Workbook

Set WbMP = Workbooks.Open("C:\Users\A. Shvechkov\Desktop\A300_MP_Task_Status.xlsm") 
WbMP.Sheets("A300_MP_Task_Status") 
......