1. Sub test2()
2.     Dim rng As Range
3.     Dim i As Long
4.  
5.     With ThisWorkbook.Sheets("report").ListObjects("Table1")
6.         .Range.AutoFilter
7.         .Range.AutoFilter Field:=.ListColumns("type").Index, _
8.             Criteria1:="=active"
9.         .Range.AutoFilter Field:=.ListColumns("data").Index, _
10.             Criteria1:="<>"
11.         .Range.Offset(1).EntireRow.Delete
12.         .Range.AutoFilter
13.     End With
14. End Sub