Скопируйте случайные данные из одной рабочей книги и вставьте их в одну строку, но в разные столбцы другой рабочей книги.

Question

Я хотел скопировать некоторые случайные данные из рабочей книги и вставить их в те же строки, но в разные столбцы другой рабочей книги. Я использовал функцию разделения, чтобы получить столбцы, которые я хочу вставить. Так как я новичок в VBA, не знаю циклов и назначить диапазон.

Sub Slt2()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Dim b As Variant
Dim txt As Variant
Dim dest_col As String


     FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*), *xls*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
      Source_Sheet = InputBox("Enter source sheet name")
        txt = InputBox("Enter the Destination Columns: ")
        dest_col = Split(txt, ",")

        For i = 0 To UBound(dest_col, 1)

       Workbooks("Sourcefile.xlsx").Sheets(Source_Sheet).Range("B21").Copy
       OpenBook.Sheets("Sheet1").Range("" & dest_col(0) & "5").PasteSpecial Paste:=xlPasteValue

       Workbooks("Sourcefile.xlsx").Sheets(Source_Sheet).Range("B21").Copy
       OpenBook.Sheets("Sheet1").Range("" & dest_col(1) & "5").PasteSpecial Paste:=xlPasteValue

       Next


   End If
End Sub