Непонятная ошибка в Excel2007 VBA

Формулировка задачи:

Делал очередное задания по учебнику.
Все работало, но потом начал править код и чето удалил и сохранил файл. Теперь когда запускаю программу пишет ошибку... Что самое плохое. Что когда ничинаю код исправлять, все ни стого ни ссего виснет :( и excel закрывается...
Я вложил программу, может кто поймет что там не так и скажет как это исправить... чето мне не очень хочется всю работу заново писать....
Работаю в Excel 2007

Решение задачи: «Непонятная ошибка в Excel2007 VBA»

textual
                            Листинг программы 
                        

                            <font color="blue">Next</font>
<font color="00AA00">' Запись итоговой суммы в шестой стобец</font>
Cells(i, <font color="darkblue"><b>6</b></font>).Value = sym
<font color="blue">Next</font>
                        