list data on summary sheet from multiple sheets, based on parameters

I tested this on your sample sheet and it does what I think you are looking for.

Sub SummurizeSheets()
Dim ws As Worksheet, colNumber As Long, flNumber As Long, wsSummary As Worksheet, rngFound As Range
Application.ScreenUpdating = False
Set wsSummary = Worksheets("Summary")
flNumber = Application.InputBox("Enter floor number", Type:=1)
    For Each ws In Worksheets
        If Not (ws.Name = "Summary" Or ws.Name = "Daily On Hand" Or ws.Name = "SheetNames") Then
            Set rngFound = ws.Range("H24:AE24").Find(flNumber)
            If Not rngFound Is Nothing Then
                colNumber = rngFound.Column
                    With ws.Range("A24:AE56")
                        .AutoFilter colNumber, Criteria1:="<>", VisibleDropDown:=False
                        If .SpecialCells(xlCellTypeVisible).Address = "$A$24:$AE$24" Then GoTo 1
                        .Offset(1).Resize(.Rows.Count - 1, 5).Copy
                        wsSummary.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
1                      .AutoFilter
                    End With
            End If
        End If
    Next ws
Application.ScreenUpdating = True
End Sub

I assume you want the amount from the G column for the applicable floor and you want it put into column F on the summary column. You would need to remove the formulas in column F and try this code.

Thanks for the rep. points.

Sub SummurizeSheets()
Dim ws As Worksheet, colNumber As Long, flNumber As Long, wsSummary As Worksheet, rngFound As Range
Application.ScreenUpdating = False
Set wsSummary = Worksheets("Summary")
flNumber = Application.InputBox("Enter floor number", Type:=1)
    For Each ws In Worksheets
        If Not (ws.Name = "Summary" Or ws.Name = "Daily On Hand" Or ws.Name = "SheetNames") Then
            Set rngFound = ws.Range("H24:AE24").Find(flNumber)
            If Not rngFound Is Nothing Then
                colNumber = rngFound.Column
                    With ws.Range("A24:AE56")
                        .AutoFilter colNumber, Criteria1:="<>", VisibleDropDown:=False
                        If .SpecialCells(xlCellTypeVisible).Address = "$A$24:$AE$24" Then GoTo 1
                        Union(.Offset(1).Resize(.Rows.Count - 1, 5), .Offset(1, 6).Resize(.Rows.Count - 1, 1)).Copy
                        wsSummary.Cells(152, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
1                      .AutoFilter
                    End With
            End If
        End If
    Next ws
Application.ScreenUpdating = True
End Sub