Copy same ranges in all excel files in a folder into a single workbook

Hi Everyone,

I'm trying to write a code that copies the same ranges in all files in a folder(C:\Users\ple\Desktop\DTF-CRF) into a master workbook with column headers.
All of the excel files in the folder will contain a sheet named "Screening".
Cells K6 (Patient ID), K7 (Visit), C59 (Name), and P59 (Date) need to be copied from each workbook and pasted into their appropriate columns in the master workbook.
The columns in the master workbook are as followed:
A:A(Patient ID)
B:B(Visit)
C:C(Name)
D:D(Date)

There will also be other excel files added to this folder on a daily basis.

Any help is appreciated.

Regards,
Phil

Maybe:

Sub ple()
Dim CurFile As String, DirLoc As String
Dim DestWb As Worksheet
Dim ws As Worksheet

DirLoc = "C:\Users\ple\Desktop\DTF-CRF\"
CurFile = Dir(DirLoc & "*.xlsx")

Application.ScreenUpdating = False
Application.EnableEvents = False

Set DestWb = Workbooks("Master.xlsx").Sheets("Sheet1")
On Error Resume Next
Do While CurFile <> vbNullString
    Dim OrigWb As Workbook
    Set OrigWb = Workbooks.Open(FileName:=DirLoc & CurFile, ReadOnly:=True)

    OrigWb.Sheets("Screening").Activate
    Range("K6").Copy DestWb.Range("A" & Rows.count).End(3)(2)
    Range("K7").Copy DestWb.Range("B" & Rows.count).End(3)(2)
    Range("C59").Copy DestWb.Range("C" & Rows.count).End(3)(2)
    Range("P59").Copy DestWb.Range("D" & Rows.count).End(3)(2)
        
    OrigWb.Close SaveChanges:=False
    CurFile = Dir
Loop
On Error GoTo 0

Application.ScreenUpdating = True
Application.EnableEvents = True

Set DestWb = Nothing


End Sub

Which Column would define the last row of data?

Maybe:

Sub ple()
Dim CurFile As String, DirLoc As String
Dim DestWb As Worksheet
Dim ws As Worksheet
Dim x As Long
DirLoc = "P:\ple\Curetech DTFs Test\"
CurFile = Dir(DirLoc & "*.xlsx")

Application.ScreenUpdating = False
Application.EnableEvents = False

Set DestWb = Workbooks("RECIST Only_DTF Format Specifications.xlsx").Sheets("CRF")
On Error Resume Next
Do While CurFile <> vbNullString
    Dim OrigWb As Workbook
    x = DestWb.Range("N" & Rows.count).End(3)(2).Row
    Set OrigWb = Workbooks.Open(FileName:=DirLoc & CurFile, ReadOnly:=True)
    
    'Pulls from Screening Sheet in each file'
    OrigWb.Sheets("Screening").Activate
    'Patient ID
    Range("K6").Copy DestWb.Range("A" & x)
    'Visit Name
    Range("K7").Copy DestWb.Range("B" & x)
    'Scan Date
    Range("J12").Copy DestWb.Range("C" & x)
    'Target Sum
    Range("M49").Copy DestWb.Range("D" & x)
    'Baseline sum
    Range("R50").Copy DestWb.Range("E" & x)
    'Nadir sum
    Range("R51").Copy DestWb.Range("F" & x)
    '% change from Baseline
    Range("M50").Copy DestWb.Range("G" & x)
    '% change from Nadir
    Range("M51").Copy DestWb.Range("H" & x)
    'Overall Visit Comments
    Range("B54").Copy DestWb.Range("L" & x)
    'Reviewer Name
    Range("C59").Copy DestWb.Range("M" & x)
    'Review Date
    Range("P59").Copy DestWb.Range("N" & x)
    
    'Pulls from Second Sheet - Second sheet has various visit names in each file'
    OrigWb.Sheets(2).Activate
    'Patient ID
    Range("K6").Copy DestWb.Range("A" & x)
    'Visit Name
    Range("K7").Copy DestWb.Range("B" & x)
    'Scan Date
    Range("J12").Copy DestWb.Range("C" & x)
    'Target Sum
    Range("M49").Copy DestWb.Range("D" & x)
    'Baseline sum
    Range("R50").Copy DestWb.Range("E" & x)
    'Nadir sum
    Range("R51").Copy DestWb.Range("F" & x)
    '% change from Baseline
    Range("M50").Copy DestWb.Range("G" & x)
    '% change from Nadir
    Range("M51").Copy DestWb.Range("H" & x)
    'Target Response
    Range("J62").Copy DestWb.Range("I" & x)
    'Non-Target Response
    Range("J73").Copy DestWb.Range("J" & x)
    'Overall Response
    Range("J91").Copy DestWb.Range("K" & x)
    'Overall Visit Comments
    Range("B95").Copy DestWb.Range("L" & x)
    'Reviewer Name
    Range("C100").Copy DestWb.Range("M" & x)
    'Review Date
    Range("P100").Copy DestWb.Range("N" & x)
        
    OrigWb.Close SaveChanges:=False
    CurFile = Dir
Loop
On Error GoTo 0

Application.ScreenUpdating = True
Application.EnableEvents = True

Set DestWb = Nothing
End Sub