使用VBA联合函数有条件地将单元格添加到范围

I am trying to add certain cells to their respective ranges depending on their interior colour using the union method. The code I am using is as follows:I am trying to add certain cells to their respe