копирование в другой файл (поправить макрос)

[maragva]

Здравствуйте. Не могу поправить макрос, помогите, плз.

With Sheets("Ручки")
For i = 3 To 100
If Not IsEmpty(.Cells(i, 1)) Then
Set toCopyData = Union(.Cells(i, 2), .Cells(i, 3), .Cells(i, 4))
toCopyData.Copy _
Destination:=Sheets("Лист3").Cells( Sheets("Лист3").Cells(Rows.Count, 3).End(xlUp).Row + 1, 3)
End If
Next i

Как здесь указать, что вставлять скопированное не в "Лист3", а в "книга2, Лист5" между строк 12 и 14?

[doober]

Private Sub CommandButton1_Click()
Dim WB As Workbook
Dim Sh As Worksheet
Set WB = Workbooks.Open("Книга X")
Set Sh = WB.Sheets("Лист5")

Dim i As Long
Dim toCopyData As Range

    With ThisWorkbook.Sheets("Ручки")
        For i = 3 To 100
            If Not IsEmpty(.Cells(i, 1)) Then
            Set toCopyData = Union(.Cells(i, 2), .Cells(i, 3), .Cells(i, 4))
             toCopyData.Copy _
            Destination:=Sh.Cells(Sh.Cells(Rows.Count, 3).End(xlUp).Row + 1, 3)
             End If
        Next i
         
    End With

End Sub

между строк 12 и 14?

не понятно,у вас может быть максимум 100 строк
или начало вставки 13 строка,а 14 станет после вставки данных.
Т.е. при максимуме на 113