title: Copy and Paste from multiple workbooks into a single workbook into the next blank row
body: <p>Any help would be greatly appreciated. What I'm trying to accomplish is to take the same range from multiple workbooks and paste into a single separate workbook. The issue that I am running into is that I would like to have the data paste down into the next available row. My current code does everything correctly except the paste vba (the data is currently overlapping) </p>
  
  <p>Also the ranges I am copying from have blank rows so a way to have the paste code remove blank rows would be amazing. </p>
  
  <p>Any help in this would fantastic!</p>
  
  <p>Thank you in advance</p>
  
  <pre><code>Sub MergeYear()
  
  Dim bookList As Workbook
  Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As 
  Object
  Dim r As Long
  Dim path As String
  
  path = ThisWorkbook.Sheets(1).Range("B9")
  
  Set mergeObj = CreateObject("Scripting.FileSystemObject")
  Set dirObj = mergeObj.Getfolder(path)
  Set filesObj = dirObj.Files
  
  For Each everyObj In filesObj
  Set bookList = Workbooks.Open(everyObj)
  r = r + 1
  bookList.Sheets(5).Range("A2:Q366").Copy ThisWorkbook.Sheets(5).Cells(r + 1, 
  1)
  bookList.Close
  Next everyObj
  
  End Sub
  </code></pre>