title: Appending one sheets range onto the end of another
body: <p>I have an issue that I didn't last night. The code below was working fine. I have a sales tracker of sorts, and I'm working on importing our rosters that get exported as Excel sheets instead of entering hours manually. I have that part sorted. It's one workbook, with 1 week per sheet, total of 5 sheets. Names in the first column, dates across the top. I have code that imports the 5 sheets into the tracker, removes the first column (name column) from sheets 2-5, and the following code appends to the last column of week 1 (or sheet 1), and then once merged, deletes sheets 2-5. Was working no problem. Now it gets halfway, and a) sits there spinning its wheels, or b) crashes Excel. It seems to be getting stuck on the Sub below. If I comment it out, it runs fine.</p>
  
  <pre><code>Sub MergeSheets()
      Dim NextCol As Long
      NextCol = Sheets("1").Cells(1, Columns.Count).End(xlToLeft).Column + 1
      ThisWorkbook.Sheets("2").Range("A1:XX100").Copy Sheets("1").Cells(1, NextCol)
  
      NextCol = Sheets("1").Cells(1, Columns.Count).End(xlToLeft).Column + 1
      ThisWorkbook.Sheets("3").Range("A1:XX100").Copy Sheets("1").Cells(1, NextCol)
  
      NextCol = Sheets("1").Cells(1, Columns.Count).End(xlToLeft).Column + 1
      ThisWorkbook.Sheets("4").Range("A1:XX100").Copy Sheets("1").Cells(1, NextCol)
  
      NextCol = Sheets("1").Cells(1, Columns.Count).End(xlToLeft).Column + 1
      ThisWorkbook.Sheets("5").Range("A1:XX100").Copy Sheets("1").Cells(1, NextCol)
  End Sub
  </code></pre>