title: Copy/Paste Loop through worksheets to consolidate
body: <p>I have a workbook which has approximately 300 worksheets. I'm trying to loop through each sheet, copy a specific range, and paste it on summary sheet. I need each successive paste to be put one row below the last used row. I'm newer to loops, but I think the amount of information being copied is excessive(causing an error), and I have come to understand that the .value method is much less memory intensive. </p>
  
  <p>How do I incorporate the .value method to accomplish this? Here is the code I tried to write (again, I'm new to coding,sorry). </p>
  
  <pre><code>Sub Consolidation()
  
  Dim ws As Worksheet
  
  Sheets("Summary").Select
  
  For Each ws InThisWorkbook.Sheets
  
  ActiveSheet.Range("A" &amp; Rows.Count).End(xLUp).Offset(1).Value ="ws.Range("BB1").End(xLToRight).End(xLDown).Select"
  
  Next ws
  
  End Sub
  </code></pre>
  
  <p>Alternatively, is there a better way to do this? Meaning, is the .value method the way to tackle this issue? </p>