Try this code:
Sub test()
Dim summarySheet As Worksheet
Dim sh As Worksheet
Dim j As Integer
'change "Summary" to the sheet name that is true for you'
Set summarySheet = ThisWorkbook.Worksheets.Add
summarySheet.name = "Summary"
'number of first row where need to paste in summary sheet'
j = 2
'loop throught all sheets'
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> summarySheet.Name Then
summarySheet.Range("B" & j & ":D" & j).Value = _
sh.Range("AO2:AQ2").Value
j = j + 1
End If
Next
End Sub
Note, that you need to specify correct name for Summary sheet in line Set summarySheet = ThisWorkbook.Worksheets("Summary")
)