Summary sheet - copy cell contents from multiple sheets to one summary sheet

Hi,

How would i copy contents of cell B4 for every sheet (except summary) to cell column A on the summary sheet ?

This should do it

Sub abc()
 Const shSummary As String = "Summary"
 Dim ws As Worksheet
 Dim aArr As Variant
 Dim i As Long
 
 ReDim aArr(1 To Worksheets.Count - 1, 1 To 2)
 For Each ws In Worksheets
    With ws
        If .Name <> shSummary Then
            i = i + 1
            aArr(i, 1) = .Cells(4, "b").Value
            aArr(i, 2) = .Cells(6, "b").Value
        End If
    End With
 Next
 With Worksheets(shSummary)
    .Cells.Delete
    .Cells(1, "a").Resize(, 2) = [{"Recipe Name", "Recipe Number"}]
    .Cells(2, "a").Resize(UBound(aArr), 2) = aArr
 End With
End Sub