For mine, if it's only a few sheets, one way is to exclude them by sheet names:

Option Explicit

Private Sub Worksheet_Activate()
Dim ws As Worksheet, LR As Long

Me.UsedRange.Offset(3).ClearContents            'clear current list
Application.ScreenUpdating = False              'speed up macro

For Each ws In Worksheets                       'check one sheet at a time
    If ws.Name <> Me.Name And ws.Name <> "TOTALS" Then                  'make sure it's not the PENDING SHEET
        With ws
            .AutoFilterMode = False             'turn off prior filters
            .Rows(3).AutoFilter Field:=14, Criteria1:=""            'add a filter for blanks in column N
            LR = .Range("A" & .Rows.Count).End(xlUp).Row            'make sure there are some rows of data visible, then copy
            If LR > 3 Then .Range("A4:R" & LR).Copy Me.Range("A" & Rows.Count).End(xlUp).Offset(1)
            .AutoFilterMode = False             'remove the filter
        End With
    End If
Next ws

Application.ScreenUpdating = True               'update the screen
End Sub

You can add more of those exclusions is you wish.


To access the code in the workbook, right-click on the PENDING tab name and select VIEW CODE.