复制单元格值并粘贴到另一个excel特定工作表和特定单元格中

Question

我想将一个Excel的数据复制到另一个Excel 我的问题： 在一个工作簿的Sheet1列中，C＆D包含一些数据，这些数据我需要复制当前处于关闭状态的另一个excel。我需要将Range（“ C”，i）和Range（“ D”，i）复制到另一个excel sheet3 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

Error Screenshot