excel删除筛选外的内容，保留筛选的内容

我在Excel里筛选了一个内容，想把没筛选的行全部删掉。目前试过筛选后，复制筛选内容，删除所有表格内容，在进行粘贴，但是报了粘贴板没有内容的错。后来在社区看到说用读取写入替代复制粘贴 ，但是写入的时候也报错了 是我设置的变量有问题吗 求解答

（读取的内容涉及多行多列）