Скопируйте значение ячейки и вставьте его в другой лист Excel или конкретную ячейку

Question

Я хочу скопировать данные из одного Excel в другой Excel Мой вопрос: В одной рабочей тетради столбца Лист1 C & D содержатся некоторые данные, которые мне нужны для копирования другого Excel, который в настоящее время находится в закрытом состоянии.Мне нужно скопировать Range ("C", i) и Range ("D", i) в другой лист Excel3 B2 и C2 соответственно.в этом главном копировании каждой строки вставьте в разные книги, я дал путь в H Столбцы

 Sub sbCopyRangeToAnotherSheet()
  Dim Openfile As String
  Dim lstrow As Long
  Dim i As Long
  lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
  Application.ScreenUpdating = False
  For i = 2 To lstrow

 'Copy the data
 Sheets("Main").Range("C:D", i).Copy
 'Activate the destination worksheet
  Workbook.Openfile = Range("H", i)
  Sheets("Sheet3").Activate
  'Select the target range
   Range("B2:C2").Select
   'Paste in the target destination
     ActiveSheet.PasteSpecial xlPasteValues

    Application.CutCopyMode = False
     Next
    End Sub

Снимок экрана ошибки