VBA Gefilterde rijen verwijderen

[HHD]

Goedemiddag,

Is het ook mogelijk om middels een VBA code alleen de gefilterde rijen te verwijderen uit een tabel?
De tabel strekt van A2 tm Jxx (variabel). Vervolgens probeer ik in die tabel in de tweede kolom te filteren op waarde 0 en deze rijen te verwijderen.
Heb het geprobeerd met de volgende code, maar dan worden alle rijen verwijderd.

ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=2, Criteria1 _
    :="0"
    Range("A2:J2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete

Hopelijk kan iemand me verder helpen...

MVG
HHD

 

[snb]

Sub M_snb()
   With Cells(1).CurrentRegion
      .AutoFilter 4, "aa6"
      .Offset(1).EntireRow.Delete
      .AutoFilter
  End With
End Sub

 

[jkpieterse]

ActiveSheet.ListObjects("Tabel1").DataBodyRange.SpecialCells(xlCellTypeVisible).ENtireRow.Delete

 

[HHD]

ActiveSheet.ListObjects("Tabel1").DataBodyRange.SpecialCells(xlCellTypeVisible).ENtireRow.Delete

Heb het even in een apart bestandje getest en daar werkt het, echter in het uiteindelijke bestand krijg ik een melding: Fout 1004 tijdens uitvoering: Methode Delete van klasse Range is mislukt.

Mijn code ziet er nu als volgt uit:

ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=2, Criteria1 _
    :="0"
    ActiveSheet.ListObjects("Tabel1").DataBodyRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete

 

[snb]

Sub M_snb()
   With Sheet1.ListObjects(1).DataBodyRange
      .AutoFilter 4, "aa13"
      .EntireRow.Delete
      .AutoFilter
  End With
End Sub

 

[HHD]

Sub M_snb()
   With Sheet1.ListObjects(1).DataBodyRange
      .AutoFilter 4, "aa13"
      .EntireRow.Delete
      .AutoFilter
  End With
End Sub

Bedankt, heb het geprobeerd maar doet niet wat ik wil, probeer zelf maar eens in bijgevoegd voorbeeldbestand.
Help, wat gaat hier fout?

 

[VenA]

je hebt geen "aa13" in de vierde kolom staan.

 

[HHD]

Ah wat dom van me, inderdaad, dan werkt het wel. Echter wil ik eigenlijk niet dat hij alles verwijderd wanneer de waarde niet voor komt in de kolom.
Is dat ook met code op te lossen?

 

[VenA]

.AutoFilter 4, "<>Ja"