VBA结合切片器实现按省份筛选后根据状态复制/移除行的功能故障及性能优化求助

各位前辈好，我最近在做Excel VBA的自动化功能，遇到了几个棘手的问题，想请大家帮忙指点一下：

• 我已经写了一段VBA代码，功能是根据主工作表中「Status」单元格的值，把对应行复制到不同的目标工作表：如果状态设为active，就把该行复制到名为「active」的工作表；如果状态改成inactive，就复制到「inactive」工作表。
• 目前的第一个问题是：如果主表中某行的状态改成了其他值，我还没找到方法把已经复制到对应目标工作表的那一行移除掉。
• 我的核心需求是：希望先通过切片器让用户选择成员所在的省份，之后当用户修改该成员的状态时，再把符合省份筛选条件的行复制到对应的目标工作表。
• 之前的代码虽然能实现基础的复制功能，但运行速度特别慢。后来我添加了切片器之后，代码直接没法正常工作了，完全达不到预期效果。

以下是我目前的代码片段（没写完的部分是不小心截断了）：

Private Sub Worksheet_Change(ByVal Target As Range)

 Application.ScreenUpdating = False
 Application.EnableEvents = False
 Applica...

备注：内容来源于stack exchange，提问作者Juan Jacobs