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