Combine or vlookup from multiple file to master file

Here is the Master File with code. You need to update the file Path name in the code

Sub UpMasFld()
Dim MasWB, OpnWB As Workbook
Dim opn, Path, Dir As String
Dim k As Long
Dim File As Object
Dim ms, os As Worksheet

Application.ScreenUpdating = False
Set MasWB = ThisWorkbook
Set ms = MasWB.Sheets("Sheet1")
Path = "C:\Users\m...." 'ThisWorkbook.Path
opn = ms.[C3].Value
Dir = Path & "\" & opn & "\"
[B7:F16].ClearContents
k = 7
For Each File In CreateObject("Scripting.filesystemobject").GetFolder(Dir).Files
            Workbooks.Open (Dir & "\" & File.Name)
            Set OpnWB = ActiveWorkbook
            Set os = OpnWB.Sheets(opn)

            ms.Cells(k, 2).Value = OpnWB.Name
            ms.Cells(k, 3).Value = os.[B6].Value
            ms.Cells(k, 4).Value = os.[C6].Value
            ms.Cells(k, 5).Value = os.[E6].Value
            ms.Cells(k, 6).Value = os.[F6].Value
            k = k + 1
            Application.DisplayAlerts = False
                Workbooks(File.Name).Close True
            Application.DisplayAlerts = True

Next
Application.ScreenUpdating = True
End Sub