error trying to use "Application.WorksheetFunction.Sum(CountIfs"....in vba

i think i figured it out.......i am enclosing the file.


but i also wanted to know is this the best way to do this calculation via vba or is there another way via vba that is better