Как скопировать и вставить данные на другой лист с помощью VBA?

Question

Я хочу скопировать ячейки из wbSource и вставить их в wbTarget, используя VBA. L oop, поэтому он вставляется в последний пустой столбец wbTarget. Почему я получаю сообщение об ошибке «Ошибка времени выполнения« 438 »: объект не поддерживает это свойство или метод» в строке «Set wbTarget» ??

Ошибка при

Set wsTarget = Workbooks("Data Sheet.xlsm").Worksheets("Sheet1")

Sub send_data()

Dim wbSource As Worksheet
Dim wbTarget As Worksheet
Dim i As Integer
i = 1

Workbooks.Open "H:\test\Data Sheet.xlsm"
Set wsTarget = Workbooks("Data Sheet.xlsm").Worksheets("Sheet1")
Set wsSource = ThisWorkbook.Worksheets("Sheet1")

With wsTarget
Do Until IsEmpty(Cells(1, i)) = True
    i = i + 1
Loop
End With

wsSource.Range("B1:B2").Copy
wsTarget.Cells(1, i).Paste
wsSource.Range("B13:B14").Copy
wsTarget.Cells(3, i).Paste
wsSource.Range("H16:H48").Copy
wsTarget.Cells(5, i).Paste

End Sub