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
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
Display More