VBA to delete rows hidden by filters - broken

Hello,

I have a large table with several slicers that filter the document based on entries in different columns. I am looking for a VBA to delete all rows hidden by slicers. Please take a look at the attached spreadsheet; the VBA linked to button on Sheet1 is supposed to delete my hidden rows (3, 4, 6). However, it returns an error in line 22.
This post is edited due to my non-compliance to the board rules of cross-posting for which I apologize for: the cross post can be found here. I am looking for a VBA to delete in bulk by range and now row by row due to it being very slow on a large table.
Your help is greatly appreciated.