Ошибочные действия макроса при копировании и вставке данных

[firewolf]

Всем добрый день. Нужна помощь. Есть организация у которой есть удаленные подразделения, которые направляют в организацию ежесуточно данные на 8 утра и 8 вечера. Сведения направляются книгами Excel, состоящими из нескольких листов, у всех подразделений одинаковая форма книг. Разработал макрос который открывает файл нужного подразделения, копирует из него данные и вставляет в обобщенный файл формуемый на 8 утра или 8 вечера. Для определения области копирования и вставки использую именованные списки.
Проблема - код для всех подразделений одинаковый, но только в одном подразделении и только с одного листа книги иногда происходит ошибка. Копируемая область состоит из 2-х строк. но макрос вставляет только одну, хотя в копируемом файле заполнены обе строки. При повторном запуске макроса вставка происходит правильно. Что это, глюк Excel?
Часть макроса вставки и копирования данных:

Windows("ПЧ1.xlsm").Activate
'активация окна строевки ПЧ1
Application.Goto Sheets("ЧПО, ВПО, ДПО").Range("ВПО_ПЧ1_на_20ч")
'перейти (выделить) именованный диапазон ячеек ПЧ1 на 20 часов на листе "ЧПО, ВПО, ДПО"
Selection.Copy
'копировать именованный диапазон
'
Windows("Отряд.xlsm").Activate
'активация окна строевки отряда
Application.Goto Sheets("ЧПО, ВПО, ДПО").Range("ВПО_ПЧ1_ОФПС")
'перейти (выделить) именованный диапазон ячеек ПЧ1 в файле отряда на листе "ЧПО, ВПО, ДПО"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'в выделенный именованный диапазон вставить скопированную область из ПЧ1