Добрый день форумчане!

Написать формулу в Excel получилось, но адаптировать ее под VBA не получается


Есть таблицы (их очень много и они довольно большие) в которых выполняется поиск типа материала из колонки "Примечания", при совпадении типа (Воздуховод), должен выполняться расчет площади в зависимости вида воздуховода (круглого или прямоугольного сечения), подставляться цена в зависимости от его толщины, потом соответственно сумма в зависимости от расценки и площади

Расчет площади в зависимости от вида (круглого или квадратного воздуховода)
=ОКРУГЛВВЕРХ(ЕСЛИ(ЛЕВСИМВ($C6)="Ø";ПИ()*ПСТР($C6;НАЙТИ("Ø";$C6)+1;ДЛСТР($C6))*$G6/1000;2*(ЛЕВСИМВ($C6;НАЙТИ("x";$C6)-1)+ПСТР($C6;НАЙТИ("x";$C6)+1;ДЛСТР($C6)))*$G6/1000);2)

подстановка цены в зависимости от толщины
=ЕСЛИ($B6="S=0,5";Расценки!$B$4;ЕСЛИ($B6="S=0,6";Расценки!$C$4;ЕСЛИ($B6="S=0,7";Расценки!$D$4;ЕСЛИ($B6="S=0,8";Расценки!$E$4;ЕСЛИ($B6="S=0,9";Расценки!$F$4;ЕСЛИ($B6="S=1,0";Расценки!$G$4;ЕСЛИ($B6="S=1,4";Расценки!$H$4;"Сечение ?")))))))
=ЕСЛИ($B6="S=0,5";Расценки!$B$5;ЕСЛИ($B6="S=0,6";Расценки!$C$5;ЕСЛИ($B6="S=0,7";Расценки!$D$5;ЕСЛИ($B6="S=0,8";Расценки!$E$5;ЕСЛИ($B6="S=0,9";Расценки!$F$5;ЕСЛИ($B6="S=1,0";Расценки!$G$5;ЕСЛИ($B6="S=1,4";Расценки!$H$5;"Сечение ?")))))))


Помогите пожалуйста с адаптацией