Import multiple workbooks to current workbook in specified row number

Joined
Mar 24, 2015
Messages
1
Reaction score
0
Hi All,
The below VBA code helps me to import all the workbooks from the specified path to the current workbook.
The code works perfectly
However,I want to tweak this code a little, so that I can paste the data in 5th row of the current workbook
The below code helps me in placing the data one row below
Please confirm where to change the code, to paste the data in 5th row.

Code:
Sub mergeworkbooks()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("C:\Users\John\Desktop\SLO report")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
'change "A2" with cell reference of start point for every files here
'for example "B3:IV" to merge all files start from columns B and rows 3
'If you're files using more than IV column, change it to the latest column
'Also change "A" column on "A65536" to the same column as start point
Range("A4:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
'Do not change the following column. It's not the same column as above
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Range("A5").Select
Application.CutCopyMode = False
bookList.Close
Next
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top