Delete Table Rows

[mikeymay]

I am wanting to delete the visible rows in a table where a filter has been applied.

This is what I'm using at the moment

   With Sheets("Events").ListObjects("tbl_EventItems")
      .Range.AutoFilter Field:=1, Criteria1:=strEvent
   
      .DataBodyRange.SpecialCells(xlCellTypeVisible).Delete

      .Range.AutoFilter Field:=1
   End With

The problem is that this deletes the entire row and not just the table rows.

As I have a pivot table to the right of the table I need to delete just the table rows and not the entire rows.


TIA

 

[Akuini]

I don't think you can delete a row in a filtered table, so you need 2 steps, like this:
I assumed there are no blank cell in column 1 before the ClearContents part, because the last line search the blank cells in column 1 then delete the rows.

   With ActiveSheet.ListObjects("Table1")
      .Range.AutoFilter Field:=1, Criteria1:="*e*"
   
      .DataBodyRange.SpecialCells(xlCellTypeVisible).ClearContents

      .Range.AutoFilter Field:=1
      
      .DataBodyRange.Columns(1).SpecialCells(xlCellTypeBlanks).Rows.Delete
   End With