Автозаполнение при объединённых ячейках

[cac2s]

Имеется файл "ГрафикПродаж", из которого макросом цепляются данные в "Сводный - копия". В "Сводный - копия" есть объединенные ячейки, на которых выполнение макроса останавливается.
Прошу подсказать, как можно избавиться от данной проблемы не убирая объединения ячеек.
Заранее благодарен

[Hugo121]

Объединённые ячейки - зло!
Может так:

Cells(i, j).MergeArea.ClearContents

или

      If Cells(i, j) = Cells(i, j).MergeArea.Cells(1) Then Cells(i, j).MergeArea.ClearContents

[cac2s]

Сообщение от Hugo121

Объединённые ячейки - зло!
Может так:

Cells(i, j).MergeArea.ClearContents

или

      If Cells(i, j) = Cells(i, j).MergeArea.Cells(1) Then Cells(i, j).MergeArea.ClearContents

Спасибо, попробую.
Изначальный файл делал не я и в нём слишком много объединённых, чтобы избавляться от них.
Сделал проще:
Копирование из нужного файла в массив всех данных из ячеек требуемого диапазона, а в конечном файле - вставка в диапазон ячеек с указанием в цикле:

On Error Resume Next

В итоге если макрос не находит требуемую ячейку, просто переходит к следующей