Добрый вечер!

Необходима помощь опытных форумчан. Написал маленький код VBA (файл пример во вложении). Столкнулся с проблемой вывода корректных значений.
Данный код должен собирать информацию со всех таблиц и вставлять "друг под другом" на отдельном листе. Однако, на выходе я получаю задвоенный результат (строка копируется два раза). Буду рад любой помощи