求大神帮助，关于聚光灯VBA代码的问题

一直想用一个聚光灯效果和WPS一样的，可是找了很多代码都是用SelectionChange方法填充背景色，会导致原来数据已经有了背景色的会消失，后来找到一个条件格式的方法，我用代码写了一个，可是会清除已有的条件格式，有没有高手能帮忙改改，不会清除原来的已有的条件格式。