PasteSpecial: runtime error 1004 - VBA

Формулировка задачи:

Добрый день! Товарищи, мне нужно скопировать данные из одной книги в другую, при том только значения. Копирую таблицу с Объединенными ячейками. Если использую:

                    Листинг программы
                
ActiveSheet.Paste

- то вставляет данные без изменений, а если использую скрипт:

                    Листинг программы
                
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

, то ошибка

runtime error 1004

Перепробовал кучу рецептов из Яндекса - ничего не помогло! Прошу помощи...

                    Листинг программы
                
 
                        
                          
                    
   .Sheets("Лист1").Range("B1:X55").Copy  
..........
Application.DisplayAlerts = False
     ThisWorkbook.Activate
     ThisWorkbook.Worksheets("TEMP").Range("B19").Select
     ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
     Application.CutCopyMode = False
     Application.DisplayAlerts = True

Решение задачи: «PasteSpecial: runtime error 1004»

textual
                            Листинг программы 
                        
Range("A1:Y100").Replace "#REF!", "ERROR"