Delete hidden rows in loop works only in first run

Question

What I am trying to do is:

1. Open file named Warranty Upsell Q420 for .xlsm on my pc
2. Filter Data on Sheet named ("Endkunden")
3. Delete h