Question : HELP!! Quickly if possible... Copy rows from multiple worksheets and paste into a summary sheet

HELP!
Simple Macro...

If there is data in the Comments column (B) in any / some / all of the following sheets: Demo Estimate, Fabricate Estimate, Erect, Pressure Estimate, and Pipe Support Estimate, then I would like to copy the entire row(s) into the Estimate Details worksheet.

Thanks Experts!

File is attached.

Attachments:

TEST-SON.xls (512 KB) (File Type Details)

Attached file

Answer : HELP!! Quickly if possible... Copy rows from multiple worksheets and paste into a summary sheet

Here is an update to remove the formulas I hadn't seen at first.

Thomas

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:



Sub consoSheets()
Dim sht As Worksheet, shtDest As Worksheet, lastRow As Long
application.ScreenUpdating = False
Set shtDest = ActiveWorkbook.Sheets("Estimate Details")

For Each sht In ActiveWorkbook.Worksheets
    If Right(Trim(sht.Name), 8) = "Estimate" And Left(Trim(sht.Name), 7) <> "Summary" Then
        
        lastRow = sht.Cells(sht.Rows.Count, 2).End(xlUp).Row
        
        If lastRow > 2 Then
            sht.range("B3:V" & lastRow).Copy
            lastRow = shtDest.Cells(sht.Rows.Count, 2).End(xlUp).Row
            shtDest.Cells(shtDest.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
            shtDest.Cells(shtDest.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormats
        End If
        
    End If
Next sht
application.ScreenUpdating = True
End Sub