Копировать строку из цикла в новую книгу - VBA

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

Добрый день, уважаемые коллеги Не подскажите в чем проблема? Пытаюсь скопировать из одной книги в другую подходящие под условия строки.

Задача:

Подошла под условия -> скопировал строку и вставил в новую книгу в последнюю свободную строку. При дебаге: выделяет, наверное копирует (не уверен), но не вставляет, ни каким из методов (перепробовал Paste, PasteSpecial, Insert).

                    Листинг программы
                
 
                        
                          
                    
Dim Исходная As Excel.Workbook, Конечная As Excel.Workbook
Dim iLastRow As Long
Dim x As Variant
Dim k As Long
Set Исходная = ActiveWorkbook
 
Set Конечная  = Workbooks.Add
 
ws.Activate
 
k = 0
 
For i = 2 To LastRow
   
   If ws.Cells(i, 2).Value >= FindDate Then
        
        If ws.Cells(userRow, 23).Text = "Текст 1" _
        Or ws.Cells(userRow, 23).Text = "Текст 2" _
        Or ws.Cells(userRow, 23).Text = "Текст 3" Then
   
        k = k + 1
        ws.Range(Cells(i, 1), Cells(i, 35)).Select
        Selection.Copy
        Конечная .Activate
        iLastRow = Конечная .Range("A1").End(xlUp).Row + k
        Конечная .Cells(iLastRow, 1).Select
        Selection.Insert Shift:=xlDown
        ws.Activate
               
        End If
      
    End If
 
Next

Где ошибка? Заранее благодарю!

Решение задачи: «Копировать строку из цикла в новую книгу»

textual
                            Листинг программы 
                        
                If ws.Cells(i, 15).Value = "Событие (20-50)" _
                    Or ws.Cells(i, 15).Value = "Событие    (50-100)" _
                    Or ws.Cells(i, 15).Value = "Событие (100-102)" Then