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

[jeamz02]

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

[jolivanes]

Please read the forum rules again. #2 Should be of interest to you.
What are b (For i = 4 To b) and c (For i = 4 To c)?
Are these very large, lots of data, sheets?

If I understand your requirements right, does this work?

Please Login or Register  to view this content.

[vcoolio]

Hello Jeamz02,

Here's another method if it suits:-

Please Login or Register  to view this content.

I hope that this helps.

Cheerio,
vcoolio.