My complete code block is actually this:
Sub SingleActionWhenLoopingThroughSelectedSheets()
Dim ws As Worksheet
Dim sheetArray As Variant
Dim myPassword As Variant
Dim EmptyRow As Long
'Clear data from Summary worksheet
Worksheets("Summary").Range("A3").CurrentRegion.Clear
'Capture the selected sheets
Set sheetArray = ActiveWindow.SelectedSheets
'Loop through each selected worksheet
For Each ws In sheetArray
'Determine emptyRow
EmptyRow = WorksheetFunction.CountA(Worksheets("Summary").Range("A:A")) + 2
'Select the worksheet
ws.Range("A3").CurrentRegion.Copy Worksheets("Summary").Cells(EmptyRow, 1)
Next ws
'Select the Summary Sheet
Worksheets("Summary").Activate
End Sub