求一段VBA代码，解决筛选后统计特定颜色单元格数量的问题

我希望对一个excel的数据项进行筛选后，统计每次不同筛选结果后的红色单元格数量。如：根据“讲师姓名”，筛选出3月份该讲师的课时安排（红色单元格），这样统计3月份，该名讲师的课时数量。不知道有没有说清楚。也就是说，选定的区域应该是允许间隔的，怎么处理呢？请各位大侠帮帮忙