1)Все формулы в англоязычном эквиваленте. Как они выглядят можно узнать, записав макрос.
2)Разделители, в отличии от интерактивной вставки, не ";", а ","!!!
//Вставка гиперссылки:
//ActiveSheet.Hyperlinks.Add(Куда, 'http://www.msdn.com', '', 'Типтол подсказка', 'отображаемый текст в ячейке')
Лист.Cells(сч, 4).Hyperlinks.Add(Лист.Cells(сч, 4),"http://www.mail.ru","","","");
счСтр = Формат(сч,"ЧГ=");
Лист.Cells(сч,10).Formula = "=IF(I$2>20000,E"+счСтр+"*G"+счСтр+",H"+счСтр+"*E"+счСтр+")";//j
Лист.Cells(сч,11).Formula = "=IF(E"+счСтр+">0,IF(I"+счСтр+"=0,K$2,0),"""")";// k
Лист.Cells(сч,12).Formula = "= IFERROR(ROUND(M"+счСтр+"/E"+счСтр+",2),0)";// l
Лист.Cells(сч,13).Formula = "=IFERROR(ROUND(J"+счСтр+"*(1-K"+счСтр+"),2),0)";// m