I have the following code; however, I need it to be tweaked.
1. I would like the unique tab names to appear in Column A (currently unused).
2. Paste ALL rows, even blank from b2:q61.
All sheets are the same with the exception of the code
Sub CopySheetsToSummary() Dim ws As Worksheet Dim wsDest As Worksheet Dim RangeToCopy As Range Dim RangeToPaste As Range Set wsDest = Worksheets("Summary") For Each ws In ActiveWorkbook.Worksheets If ws.Name <> wsDest.Name Then Set RangeToCopy = ws.Range("a11", ws.Range("a65536").End(xlUp)).EntireRow Set RangeToPaste = wsDest.Range("a65536").End(xlUp).Offset(2, 0) If RangeToPaste.Address = "$A$3" Then Set RangeToPaste = Range("a11") RangeToCopy.Copy RangeToPaste End If Next End Sub