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

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.