title: Worksheet Collation Overflow issue
body: <p>I'm trying to combine all data several worksheets into one, but I am getting an 'Overflow' error before it gets particularly far... Surely there is a better way of writing it to avoid this issue!</p>
  
  <pre><code>Sub collateSheets()
  
  Dim ws As Worksheet
  Dim src As Worksheet
  Dim LR As Integer
  Dim LR2 As Integer
  
  Set ws = Sheets.Add
  With ws
      .Name = "Collated Data"
      .Range("1:1").Value = Sheets(2).Range("1:1").Value
  End With
  For i = 1 To Sheets.Count
      Sheets(i).Activate
      LR = ws.Cells(Rows.Count, 1).End(xlUp).Row
      LR2 = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
      If LR2 &lt;&gt; 1 Then
          For j = 2 To LR2
              LRinput = LR - 1 + j
              ws.Rows(LRinput).Value = Sheets(i).Rows(j).Value
          Next j
      End If
      LR = vbNull
      LR2 = vbNull
  Next i
  
  End Sub
  </code></pre>