На основе анализа ячеек сформировать другой файл xls с отчетом

Dim xlsApp As Object
Dim xlsWb  As Object
Dim xlsSh   As Object
 
      Set xlsApp=CreateObject("Excel.Application")
      Set xlsWb =xlsApp.Workbooks.Open("имя-книги")
      Set xlsSh  =xlsWb.Sheets("Имя-или-номер-листа")
      
      For i%=1 to 10
          For  j%=1 to 20
                x#=xlsSh.Cells(i%,j%).Value
                ...
                xlsSh.Cells(i%,j%).Value=...
          Next j%
      Next i%
 
      xlsWb.Save
      xlsWb.Close
      xlsApp.Quit

...
 
      Set xlsApp=CreateObject("Excel.Application")
      xlsApp.Visible=True
...

 For i% = 1 To 10
         For j% = 1 To 20
                x = xlsSh.Cells(i%, j%).Value
                 If xlsSh.Cells(i, 8).Value = "выполнено" Then
          ....копируем всю строчку....
           Set xlsWb = xlsApp.Workbooks.Open("C:\Users\Lenovo\Desktop\сюда.xls")
           .....вставляем в строчку....
           End If     
          Next j
      Next i

Set xlsWb_1 = xlsApp.Workbooks.Open("C:\Users\Lenovo\Desktop\сюда.xls")

Private Sub Command1_Click()
Dim xlsApp As Object
Dim xlsWb  As Object
Dim xlsSh   As Object
Dim xlsWb1  As Object
Dim xlsSh1   As Object
 
      Set xlsApp = CreateObject("Excel.Application")
      xlsApp.Visible = True
      Set xlsWb = xlsApp.Workbooks.Open("C:\Users\Lenovo\Desktop\пример1.xls")
      Set xlsSh = xlsWb.Sheets("лист1")
 Dim i%
 Dim j%
 Dim x  As Variant
 
      For i% = 1 To 5
                x = xlsSh.Cells(i%, 5).Value
               
                
                If xlsSh.Cells(i%, 5).Value = "выполнено" Then
                Select Case i%
                Case 1
                Windows("пример1.xls").Activate
                Range("B6:C6").Select
                Selection.Copy
                Set xlsWb1 = xlsApp.Workbooks.Open("C:\Users\Lenovo\Desktop\пример2.xls")
                Set xlsSh1 = xlsWb1.Sheets("лист1")
                Windows("пример2.xls").Activate
                Range("B6:C6").Select
                ActiveSheet.Paste
                Case 2
               Windows("пример1.xls").Activate
                Range("B8:C8").Select
                Selection.Copy
                Set xlsWb1 = xlsApp.Workbooks.Open("C:\Users\Lenovo\Desktop\пример2.xls")
                Set xlsSh1 = xlsWb1.Sheets("лист1")
                Windows("пример2.xls").Activate
                Range("B8:C8").Select
                ActiveSheet.Paste
                End Select
                End If
                
      Next i
 
      xlsWb.Save
      xlsWb.Close
      xlsApp.Quit
End Sub

 Windows("пример1.xls").Activate

xlsApp.Windows(и далее по тексту)