Помогите, пожалуйста!  
 
Не понимаю где ошибка, но почему-то не работает макрос

Мне в пользовательскую функцию передается ссылка на массив ячеек.  
Как я могу удалить нулевые значения в этом массиве значений, чтобы дальше работать с данными?  
 
Файл во вложении.

В экселе могу посчитать значение по следующей формуле.  
 
=sum(if($C$13:$C$15< D22,1,(D22/($C$13:$C$15))^($C$16:$C$18))*(C22:C24))  
 
Каким образом можно написать пользовательскую функцию в VBA, куда в качестве аргументов передавались бы ссылки на 4 Range? И сама эта функция могла бы по умолчанию работать с передаваемыми аргументами как с массивами.

Подскажите, пожалуйста!  
 
Возникла проблема. Хочу присвоить ячейке формулу массива    
 
Range("G5").FormulaArray = "=sum(if(H5>$B$4:$B$6;1;(H5/$B$4:$B$6)^$C$4:$C$6)*$A$4:$A$6)"  
 
Выдает ошибку, что не может ячейке присвоить формулу массива. Как решить эту проблему?