Sub load_data()
    Dim avFiles, x, lr, colnum, i, k, rownum As Long
    Dim wbs As Workbook
    Dim wss, wsd As Worksheet
    Dim MaterialRate, _
        Mat_no, _
        Articleno, _
        ManufSiteCode, _
        Article_Thk, _
        Article_Description, _
        Date_of_report As Integer
    Dim rg As Range
    Dim lastsave As String

    
    Set wsd = Excel.ActiveWorkbook.Sheets(2)
    
    avFiles = Application.GetOpenFilename _
                ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файлы", , True)
    If VarType(avFiles) = vbBoolean Then
        Exit Sub
    End If
    lr = 2
    While (wsd.Range("A" & lr).Value <> "")
        lr = lr + 1
    Wend
    For Each x In avFiles
        Set wbs = Excel.Workbooks.Open(x)
        Set wss = wbs.Sheets(2)
        colnum = Module3.FindLastCol(1, wss)
        rownum = Module3.FindLastRow(123, wss)
        lastsave = wbs.BuiltinDocumentProperties("Last save time").Value
        lastsave = Mid(lastsave, 1, 10)
        For k = 1 To colnum Step 1
            If (wss.Cells(1, k).Value = "MaterialRate") Then MaterialRate = k
            If (wss.Cells(1, k).Value = "Mat.no") Then Mat_no = k
            If (wss.Cells(1, k).Value = "Articleno") Then Articleno = k
            If (wss.Cells(1, k).Value = "Article Description") Then Article_Description = k
            If (wss.Cells(1, k).Value = "Date of report") Then Date_of_report = k
            If (wss.Cells(1, k).Value = "Article Thk") Then Article_Thk = k
            If (wss.Cells(1, k).Value = "ManufSiteCode") Then ManufSiteCode = k
        Next
        For k = 2 To rownum Step 1
            If (wss.Cells(k, MaterialRate).Value <> "") Then
                wsd.Range("A" & lr).Value = wss.Cells(k, MaterialRate).Value
                wsd.Range("B" & lr).Value = wss.Cells(k, Mat_no).Value
                wsd.Range("C" & lr).Value = wss.Cells(k, Articleno).Value
                wsd.Range("D" & lr).Value = wss.Cells(k, ManufSiteCode).Value
                wsd.Range("E" & lr).Value = wss.Cells(k, Article_Thk).Value
                wsd.Range("F" & lr).Value = wss.Cells(k, Article_Description).Value
                wsd.Range("G" & lr).Value = lastsave
                lr = lr + 1
            End If
        Next
        wbs.Close (False)
    Next
End Sub