Opgelost Snel filteren in een tabel

[Moby123888]

Goedenavond,
Ik heb via dit forum al heel veel opgestoken en ook heel wat praktische zaken kunnen vinden die voor mij van toepassing zijn.
Zo gebruik ik al lange tijd een uitbreid filter om gegevens te doorzoeken.
Nu wilde ik ditzelfde filter ook gebruiken voor een tabel die via een powerquery wordt gevuld.
Dit werkt uiteraard ook, maar als eenmaal het filter is gebruikt, krijg ik niet de volledige filters leeg zodat de complete tabel weer terug keert.
Ik hoop dat iemand mij kan helpen en uitleggen hoe ik dmv een knop het hele filter weer leeg krijg.
Alvast hartelijk dank!

Bijgaand een eenvoudige opzet met mijn probleem.

 

[AHulpje]

Sub FilterUit()
    ActiveSheet.Unprotect
    Range("A5").CurrentRegion.AutoFilter
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[emields]

of zo.

 

[Moby123888]

Goedenavond.
Geweldig, hartelijk dank voor jullie hulp!

 

[emields]

Als er geen bijkomende vragen zijn vergeet dan niet, in uw eerste post, de vraag als opgelost te zetten