Чересстрочное копирование текста с одного листа на другой

[Lama Under Cover]

Здравствуйте!

Передо мной встала задача создания макроса для чересстрочного копирования.

Использую следующий код для добавления пустых строк на лист List1, устанавливаю диапазон (в примере 100), в столбце А для строк, где нужно добавить новую строку, стоит значение Ins

Sub Ins()
   
   Dim FinalRow As Long
   Dim i As Integer
  
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationAutomatic
    
    Sheets("List1").Select
   
        FinalRow = Cells(100, 1).End(xlUp).Row
For i = FinalRow To 1 Step -1
If Cells(i, 1).Value = "Ins" Then
Cells(i, 1).EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next i
    
    Sheets("List1").Select
    Range("A1").Select
    
    Application.ScreenUpdating = True
   
End Sub

Далее требуется на данный лист в добавленные пустые строки скопировать построчно значения строк из другого листа (например, строки для копирования с листа List2 можно пометить copy, либо просто задать диапазон для строк для копирования, это маловажно).

Надеюсь, кто-нибудь подскажет какой-нибудь рабочий вариант такой, чтобы макрос работал быстро (поскольку мои с аналогичным кодом заставляли процессор думать)

[Lama Under Cover]

Задачу решил элементарным объединением строк с переводом каретки внутри ячеек =/