I found this excellent code on this site and it works great. What do I need to do when copying from the source documents to paste the information into rows rather than columns? The first row would be Row 4 and then go down by 1 row each time until completed.
Code:
Sub FolderCrawler()
FileType = "*.xlsm*" 'The file type to search for
FilePath = "C:\Users\Alan\Documents\Sales\" 'The folder to search
Dim OutputCol As Variant
Dim Curr_File As Variant
Dim FldrWkbk As Workbook
OutputCol = 1 'The first row of the active sheet to start writing to
ThisWorkbook.ActiveSheet.Range(Cells(3, OutputCol), Cells(3, OutputCol)) = FilePath & FileType
OutputCol = OutputCol + 1
Curr_File = Dir(FilePath & FileType)
Do Until Curr_File = ""
Set FldrWkbk = Workbooks.Open(FilePath & Curr_File, False, True) 'Open new data file
Sheets("Order").Range("D18:D27").Copy 'Copy data from specific Range
'Move back to Master file
Workbooks("SUMMARY.xlsm").Activate
Sheets(1).Cells(4, OutputCol).Select
ActiveSheet.Paste
OutputCol = OutputCol + 1
FldrWkbk.Close SaveChanges:=False 'Close the data file
Curr_File = Dir 'Select Next File
Loop
Set FldrWkbk = Nothing
End Sub