How to get Totals Based on Cell Color Creating / UDF (User Defined Functions) with VBA