У меня есть несколько данных из файла CSV, мне нужно скопировать все данные CSV в один файл Excel, основанный на значении ячейки. Подобно исходному листу Excel1 B2:C2, чтобы до конца строки данных мне нужно скопировать Target Excel Sheet3 Столбец B2:C2 До конца так, как есть несколько рабочих книг в одной рабочей книге

 Sub Copy_Paste()
  Dim Openfile As String ' Openfile
  Dim lstrow As Long, lCol As Long
  Dim i As Long, j As Long
  Dim rng As Range
  Dim temp As Excel.Workbook
  Dim temp1 As Excel.Workbook


    lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    lCol = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End("AI").Column
    Application.ScreenUpdating = False
    For i = 2 To lstrow
     For j = B To lCol

      'Open The Workbook FME CSV File
             Set temp1 = Workbooks.Open(ws.Cells("2" & j).Value)



                        ThisWorkbook.Sheets ("Main")
                              'Activate the destination worksheet
                               Set temp = Workbooks.Open(Range("H" & i).Value)
                               Sheets.Range("E" & i).Activate
                                'copy the data
                                 temp1.Range("B:C").Copy 'need to copy the data B2&C2 to till End column
                               'Select the target range
                              ThisWorkbook.Range("L").Select
                              'Paste in the target destination
                              temp.Range("B2:C2").PasteSpecial xlPasteValues

                  Application.CutCopyMode = False
                    temp1.Save
                    temp1.Close
                     Next j ' Once Column Cell empty goto next row
                     Next i
             End Sub

0