скопировать строку данных из 1 ячейки в другом листе до последней строки

Question

Нужна помощь, чтобы скопировать те же идентификаторы из другого листа в этот лист в последнюю строку.

Итак, приведенный ниже код - это то, что я получил, и все работает отлично.Теперь мне нужно скопировать идентификатор в последнюю строку с данными, которые уже были запущены макросом.

Приведенный ниже код в основном то, что я хочу, но я хочу, чтобы он несколько раз копировался до последней строки, а переменная должна быть динамической

Set CopyRng3 = wsCopy.Range("B1")
      'Currency
CopyRng3.Copy
        wsDest.Range("B" & lDestLastRow).PasteSpecial xlPasteValues

 For Each Col In CopyColumns

      lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "C").End(xlUp).Offset(1).Row
      lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, Col).End(xlUp).Row
      'Price Date
      Set copyrng = wsCopy.Range(Col & "30:" & Col & lCopyLastRow)
      'Price
      Set CopyRng2 = wsCopy.Range(copyrng(1, 1).Offset(0, 1), copyrng(copyrng.Rows.Count, 1).Offset(0, 1))
      'ID
      Set CopyRng3 = wsCopy.Range("B1")
      'Currency
      Set CopyRng4 = wsCopy.Range("C1")



        If copyrng.Find("#N/A", LookIn:=xlValues) Is Nothing Then
        copyrng.Copy
        wsDest.Range("C" & lDestLastRow).PasteSpecial xlPasteValues
        CopyRng2.Copy
        wsDest.Range("J" & lDestLastRow).PasteSpecial xlPasteValues
        CopyRng3.Copy
        wsDest.Range("B" & lDestLastRow).PasteSpecial xlPasteValues
        CopyRng4.Copy
        wsDest.Range("I" & lDestLastRow).PasteSpecial xlPasteValues

       End If

     Next Col


     For i = LoaderHeaderRow + 1 To lDestLastRow - 1
        'Action
        wsDest.Cells(i, RecAction) = "New"
        'Pricelist
        wsDest.Cells(i, Pricelist) = "RPIA.SIPF FV2"

     Next i

     MsgBox "Done"

по сути, я хочу скопировать идентификаториз "Wscopy", затем вставьте его в последнюю строку, затем перейдите к следующему столбцу в WsDest. Это то, чего я ожидаю.Кто-нибудь может мне с этим помочь?заранее спасибо

WsCopy worksheet
coulmn     B        E          H
        ABC123    ABC246    ABC345           

WsDEst worksheet

column
          B
         ABC123
         ABC123
         ABC123
         ABC123
         ABC246  
         ABC246 
         ABC246 
         ABC345
         ABC345
         ABC345