ник: nika
Ошибку выдает при выходе из внешнего цикла т.е.при выполнении второго loop при чем в Excelтаблицу заносит все в лучшем виде но после этого обрывает функцию и выдаёт это сообщениe.
3021
Ether BOF or EOF is True, or the current record has been deleted.Requisted operation requires acurrend record. 
спасибо nika.