It's usually better to include sample attachments so people don't have to make some up
Use this as as starting point. My test data is attached
Option Explicit
Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Dim rData As Range
Dim iRow As Long, iWeek As Long, iOut As Long
FileToOpen = Application.GetOpenFilename("Data File (*.xlsx), *.xlsx")
If FileToOpen = False Then Exit Sub
iWeek = Application.InputBox("What Week?", "Get the Week Number", 0, , , , , 1)
If iWeek < 1 Then Exit Sub
Application.ScreenUpdating = False
Set OpenBook = Application.Workbooks.Open(FileToOpen)
iOut = 2
With OpenBook.Sheets(1)
For iRow = 2 To .Cells(1, 1).CurrentRegion.Rows.Count
If .Cells(iRow, 5).Value = iWeek Then
.Cells(iRow, 1).Resize(1, 11).Copy ThisWorkbook.Sheets(1).Cells(iOut, 1)
iOut = iOut + 1
End If
Next iRow
End With
OpenBook.Close False
Application.ScreenUpdating = True
End Sub