Sub M()
    Dim WBook As Workbook
    Set WBook = Workbooks("Сводный отчёт по ДЗ и ПДЗ.xlsb")
    Dim WSheet As Worksheet
    Set WSheet = WBook.Worksheets("Данные")
    Dim iColMax, iColMin As Integer
        iColMax = 100
        iColMin = 90
End Sub