VBA宏过滤器和复制到新选项卡

I have a macro which will insert a new column flagging particular cells. I want it to then create two tabs based on the values. My macro is giving me an I have a macro which will insert a new column f