Sub Group()
Dim plg As Range
Dim l As Long
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "SUMMARY" Then
With Ws
Set plg = Ws.Range("A2:B" & Ws.Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants)
l = plg.Rows.Count
plg.Copy
With Sheets("SUMMARY").Range("A65536")
With .End(xlUp)
.Offset(1, 0).PasteSpecial xlValues
.Offset(1, 2).Resize(l, 1).Value = Ws.Name
End With
End With
Application.CutCopyMode = False
End With
End If
Next
'Call TRI
End Sub