Copy Paste Rows with Condition to Summary - VERY SLOWWW HELP!

My current code looks through 1 worksheet at a time copying all rows that have a numeric value in them and pasting them into a summary sheet.
My only problem the code runs very slow. Here is a sample of the code below copying from two worksheets and pasting into the summary tab.

Here's my current code:

or i = 4 To b

If IsNumeric(Worksheets("SIE 120V Panels").Cells(i, 1).Value) = True Then
Worksheets("SIE 120V Panels").Rows(i).Copy
a = Worksheets("BOM").Range("A65356").End(xlUp).Row
Worksheets("BOM").Cells(a + 1, 1).Select
ActiveSheet.Paste

End If

Next


For i = 4 To c

If IsNumeric(Worksheets("SIE 120V Breakers").Cells(i, 1).Value) = True Then

Worksheets("SIE 120V Breakers").Rows(i).Copy
a = Worksheets("BOM").Range("A65356").End(xlUp).Row
Worksheets("BOM").Cells(a + 1, 1).Select
ActiveSheet.Paste


End If
Next

Hello Jeamz02,

Here's another method if it suits:-

Sub CopyStuff()
          
          Dim ws As Worksheet, sh As Worksheet
          Set sh = Sheets("BOM")
          
Application.ScreenUpdating = False

For Each ws In Worksheets
       If ws.Name <> "BOM" Then
            ws.Range("A2", ws.Range("A" & ws.Rows.Count).End(xlUp)).SpecialCells(2, 1).EntireRow.Copy '----> Change A2 to A4?
            sh.Range("A" & Rows.Count).End(3)(2).PasteSpecial xlValues
       End If
Next ws

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

I hope that this helps.

Cheerio,
vcoolio.