title: Excel VBA Copy multiple sheets into one sheet not working
body: <p>I have the following vba:<br />
  Data is all text, Rows A - J with column headers on every sheet are the same
  Data is sql queries all with &quot;top 1000&quot;
  4 sheets (<code>sheet1</code>, <code>sheet2</code>, <code>sheet3</code>, <code>Master</code>)</p>
  <p>sheet 1: 100 rows
  sheet 2: 34 rows
  sheet 3: 900 rows
  Master: merged data from 3 sheets</p>
  <p>PROBLEM: <code>Sheet3</code> only copies 84 rows specifically however adding more rows to other sheets will copy over to Master. Only <code>sheet3</code> will not copy more than 84 rows.</p>
  <pre><code>'   Step 1: Clear master before updating
  '   Step 2 : Loop through the regional sheets
  
   Sub Consolidate()
  
      Dim cell            As Range
      Dim wks             As Worksheet
  
      Sheets(&quot;Master&quot;).Range(&quot;A2:Z65536&quot;).ClearContents
  
      For Each wks In ThisWorkbook.Worksheets
          If wks.Name &lt;&gt; &quot;Master&quot; And wks.Range(&quot;A2&quot;) &lt;&gt; &quot;&quot; Then
          
              For Each cell In wks.Range(wks.Range(&quot;A2&quot;), wks.Range(&quot;A2&quot;).End(xlDown))
                   cell.EntireRow.Copy Destination:=Worksheets(&quot;Master&quot;).Range(&quot;A65536&quot;).End(xlUp).Offset(1, 0)
              Next cell
          End If
      Next wks
  End Sub
  </code></pre>