Loop through column in first sheet, match value with sheet names in workbook, copy/paste.

Hi Tona,

Sub RoundedRectangle1_Click()
    Dim Names As String
    Dim cell
    Dim sht As Worksheet
    With ThisWorkbook.Worksheets("MAIN SHEET")
        For Each cell In .Range("C2", .Range("C2").End(xlDown))
            For Each sht In ThisWorkbook.Worksheets
                If sht.Name = cell.Value Then
                    sht.Activate
                    .Range("A" & cell.Row & ":E" & cell.Row).Copy
                    sht.Range("A" & sht.Rows.Count).End(xlUp).Offset(1, 0).Select
                    ActiveSheet.Paste
                End If
            Next sht
        Next cell
        .Range("A2", .Range("A2").End(xlDown).Offset(0, 4)).Copy
        With ThisWorkbook.Worksheets("SUMMARY")
                .Activate
                .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Select
                ActiveSheet.Paste
        End With
    End With
End Sub

Paste this in the button --> Assign Macro --> new
Hope it will help you

Enjoy....
Regards,
Balaji M

It did!
Will learn the code and modify for my needs.
I appreciate it!

Having some troubles with existing macro, causes "excel not responding" and takes quite a long time.

Any suggestions for modifying?

Thank you.