Sub CopyData()
Dim NewForm As Workbook, Master As Workbook
Set Master = ActiveWorkbook
Dim x As Integer
x = 2
Application.ScreenUpdating = False
'Set TargetFolderHere
MyPath = "C:\Desktop\TargetFolder\"
MyFile = Dir(MyPath & "*.xl*", vbNormal)
'Loops to open files
Do While MyFile <> ""
Workbooks.Open MyPath & MyFile
Set NewForm = ActiveWorkbook
Master.Activate
NewForm.Sheets("Sheet1").Range("B2:B7").Copy
Master.Sheets("Sheet1").Cells(x, 1).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet1").Range("E2:E7").Copy
Master.Sheets("Sheet1").Cells(x, 7).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet1").Range("B10:B15").Copy
Master.Sheets("Sheet1").Cells(x, 13).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet1").Range("D12").Copy
Master.Sheets("Sheet1").Cells(x, 19).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet1").Range("A19").Copy
Master.Sheets("Sheet1").Cells(x, 20).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet2").Range("B6,B8,B10,B12,B14,B16,B18,B20,B22,B24").Copy
Master.Sheets("Sheet1").Cells(x, 21).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet2").Range("E6,E8,E10,E12,E14,E16,E18,E20,E22").Copy
Master.Sheets("Sheet1").Cells(x, 31).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet2").Range("H6,H8,H10,H12,H14,H16,H18,H20").Copy
Master.Sheets("Sheet1").Cells(x, 40).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet2").Range("K6,K8,K10,K12,K14,K16,K18").Copy
Master.Sheets("Sheet1").Cells(x, 48).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet2").Range("B28,B30,B32,B34,B36").Copy
Master.Sheets("Sheet1").Cells(x, 55).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet2").Range("H24,H26,H28,H30,H34").Copy
Master.Sheets("Sheet1").Cells(x, 60).PasteSpecial Transpose:=True
NewForm.Sheets("Sheet2").Range("K22,K24,K26").Copy
Master.Sheets("Sheet1").Cells(x, 65).PasteSpecial Transpose:=True
'Closes File
NewForm.Close
'Used to skip a line
x = x + 2
MyFile = Dir
Loop
Application.ScreenUpdating = True
End Sub