Sub Макрос4()
    With ActiveSheet.ListObjects(1)
      .Range.AutoFilter
      .Range.AutoFilter Field:=1, Criteria1:="=0", Operator:=xlOr, Criteria2:="="
      Application.DisplayAlerts = False
      On Error Resume Next
      .DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
      Application.DisplayAlerts = True
      .Range.AutoFilter
    End With
End Sub

Sub Макрос1()
    Dim arr_del, arr_data, s, n As Long
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Set sd = CreateObject("Scripting.Dictionary")
    arr_del = Worksheets("del").ListObjects("tblDel").ListColumns("Код").DataBodyRange
    arr_data = Worksheets("1C").ListObjects("tblData1C").ListColumns("Код").DataBodyRange
    For Each s In arr_del
        If Not sd.Exists(s) Then sd.Add s, s
    Next
    For n = UBound(arr_data) To 1 Step -1
        If sd.Exists(arr_data(n, 1)) Then Worksheets("1C").ListObjects("tblData1C").ListRows(n).Delete
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub