Всем добрый день.
Есть код по которому происходит пернос выделенной строки из книги А в книгу Б.
Есть необходимость перноса выделенных строк из книги А в книгу Б с созданием новой строки под переносимые данные.

Sub Кнопка2()
Dim i As Long
Dim toCopyData As Range

   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
       
   End With
   MsgBox "Отмеченные позиции перенесены", 64, "Конец"
End Sub