Ну в общем запустил, ошибка у вас скорее всего была из-за того, что Лист3, а должне быть Лист1, т.е. удалить первые два и переименовать в Лист1 - думаю и у вас тогда пойдет.

Абассачно так работает, пока только 2000 сделал