vba Counting and summing unique data in several columns then matching it with