Sub CopyPaste()
Dim ws As Worksheet
For Each ws In Worksheets

If ws.Name <> "Master Sheet" Then
ws.Select
ws.Application.Run "Macro1"
End If
Next
End Sub

Sub Macro1()
Range("A2:B13").Select
Selection.Copy
Sheets("Summary Sheet").Select
ActiveSheet.Paste
End Sub