Перейти к следующей подпрограмме, если в интеллектуальной таблице не найдено данных

Question

У меня смарт-стол. Код ниже, который я использую для фильтрации данных. Есть три критерия, по которым ведьма "зависимо" меняется. Как изменить код для перехода к следующему шагу / подпрограмме ->, если после фильтрации в смарт-таблице не было найдено никаких данных? Это может быть «При ошибке go to» или что-то в этом роде.

    Sub data_filtering_dev1()
    Dim lo As ListObject
    Dim iCol_1 As Long
    Dim iCol_2 As Long
    Dim iCol_3 As Long

        Sheets(Range("Sheet_name_support").Value).Activate
        Set lo = ActiveSheet.ListObjects(1)
        
        Range("A1") = Range("Cell_A1_Rename").Value  'rename back to initial name
        
        iCol_1 = lo.ListColumns(Range("dev_v1_column_for_filetr_1").Value).Index
        iCol_2 = lo.ListColumns(Range("dev_v1_column_for_filetr_2").Value).Index
        iCol_3 = lo.ListColumns(Range("dev_v1_column_for_filetr_3").Value).Index

        On Error Resume Next
        lo.AutoFilter.ShowAllData

        Sheets(Range("Sheet_name_support").Value).ListObjects(Range("tbl_name").Value).Range.AutoFilter Field:=iCol_1, _
                Criteria1:=Range("dev_v1_column_for_filetr_1_Criteria1").Value & "*"
        
        Sheets(Range("Sheet_name_support").Value).ListObjects(Range("tbl_name").Value).Range.AutoFilter Field:=iCol_2, _
                Criteria1:=Range("dev_v1_column_for_filetr_2_Criteria1").Value, Operator:=xlOr, _
                Criteria2:=Range("dev_v1_column_for_filetr_2_Criteria2").Value

        Sheets(Range("Sheet_name_support").Value).ListObjects(Range("tbl_name").Value).Range.AutoFilter Field:=iCol_3, _
                Criteria1:=Range("dev_v1_column_for_filetr_3_Criteria1").Value
End Sub