You did not specify a path or directory name, so it is assumed that the Master workbook will be in the same folder as the files and the Master workbook will host the code.
Sub copyStuff()
Dim wb As Workbook, sh1 As Worksheet, sh2 As Worksheet, rng As Range, fName As String, fPath As String, lr As Long
Set sh1 = ThisWorkbook.Sheets("Sheet1") 'Edit sheet name
fPath = ThisWorkbook.Path & "\"
fName = Dir(fPath & "*.xls")
If fName <> ThisWorkbook.Name Then
Do While fName <> ""
Set wb = Workbooks.Open(fPath & fName)
Set sh2 = wb.Sheets("Input")
lr = sh2.Cells.Find("*", , xlFormulas, xlPart, xlByRows, xlPrevious).Row
sh2.Range("B11:P" & lr).Copy sh1.Cells(Rows.Count, 2).End(xlUp)(2)
wb.Close False
fName = Dir
Loop
MsgBox "Copy completed", vbInformation, "COMPLETE"
End If
End Sub
Bookmarks