Код ошибки, если нет ячеек для копирования и вставки на новый лист с помощью специальной вставки

Question

Ошибки кода, если нет ячеек для копирования и вставки на новый лист, когда я хочу, чтобы он ничего не отображал, или даже сообщение типа «нет результатов», когда фильтр не дает ничего для копирования. Возможно ли это?

Sub DepartmentSearch()
    
' Assembly Engineer
    
    Sheets.Add.Name = ("Assembly Engineer")
    Sheets("Assembly Engineer").Activate
    
    TeamRole = "Assembly Engineer"
    MaxDate = Date

    Set rng = Worksheets("Overview").Range("Table1")  ' source table
    rng.AutoFilter Field:=13, Criteria1:=TeamRole  ' filter Department
    Worksheets("Overview").Range("Table1").AutoFilter Field:=8, Criteria1:="<" & MaxDate  ' filter date
    rng.Copy  ' copy filtered rows
    Range("A2").Select ' source table
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  ' paste values to target table
    rng.AutoFilter ' turn off filter on source table

' Cost Accounting
    
    Sheets.Add.Name = ("Cost Accounting")
    Sheets("Cost Accounting").Activate
    TeamRole = "Cost Accounting"
    MaxDate = Date
    

    Set rng = Worksheets("Overview").Range("Table1")  ' source table
    rng.AutoFilter Field:=13, Criteria1:=TeamRole  ' filter Department
    Worksheets("Overview").Range("Table1").AutoFilter Field:=8, Criteria1:="<" & MaxDate  ' filter date
    rng.Copy  ' copy filtered rows
    Range("A2").Select ' source table
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  ' paste values to target table
    rng.AutoFilter ' turn off filter on source table

Answer 1

Добавьте строку в начале вашего кода, например

On Error Goto ErrHandler

', затем в конце добавьте

exit sub
ErrHandler:
'code to do what you want if there's an error
msgbox "No Result"