Ошибка при выполнении команды "Вставить": Object doesn't support this property or method - VBA

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

Здравствуйте, пожалуйста, помогите разобраться в чем проблема. С макросами знакома только три недели. Есть две книги: old_book и new_book. Задача макроса в том, чтобы сравнить две книги и добавить в old_book те данные, которых в ней нет. Макрос по очереди берет значения из столбца А в new_book и ищет их в столбце А в old_book. Если не находит, то выделяет всю строку с этим значение цветом, копирует и вставляет в old_book. Все работает до команды вставки. При выполнении вставки выдает ошибку:Object doesn't support this property or method. Самое важное - при вставке должны сохраняться формулы. Обе книги прилагаю. Макрос выполняется при открытых книгах, запускается из new_book. Также если будут корректировки ко всему коду в целом, буду благодарна. По форуму смотрела похожие темы, но ничего для себя не нашла подходящего.

Решение задачи: «Ошибка при выполнении команды "Вставить": Object doesn't support this property or method»

textual
                            Листинг программы 
                        

                            Sub Srav()
Dim Rng As Range, iVal As Variant
Dim wb2LastRow As String
Dim wbLastRow As Long
Dim Imya_Lista As String
Dim wb As Object
Dim wb2 As Object
Imya_Lista = ActiveSheet.Name
Set wb = Workbooks("Old_book.xlsm")
Set wb2 = Workbooks("New_book.xlsm")
wb2LastRow = wb2.Worksheets(Imya_Lista).Cells(Rows.Count, 1).End(xlUp).Row
For n = 2 To wb2LastRow
iVal = wb2.Sheets(Imya_Lista).Range("A" & n)
Set Rng = wb.Sheets(Imya_Lista).Columns(1).Find(iVal, , xlFormulas, xlWhole)
If Rng Is Nothing Then
wb2.Worksheets(Imya_Lista).Rows(n).Interior.Color = 65280
wb2.Worksheets(Imya_Lista).Rows(n).Copy
wb.Worksheets(Imya_Lista).Activate
wbLastRow = wb.Worksheets(Imya_Lista).Cells(Rows.Count, 1).End(xlUp).Row
wb.Worksheets(Imya_Lista).Rows(wbLastRow + 1).Select
wb.Worksheets(Imya_Lista).Rows(wbLastRow + 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False 'Ошибка возникает здесь
End If
Next n
End Sub
                        