Copy last two columns and insert to the right of them

[absherzad]

Greetings.

I am having trouble being able to copy the last two columns with data in a worksheet and then insert the same columns to the right of them. Here is my code so far, it does not work because the top row is merge of more columns. Here is the

is the screenshot link.

Sub newTest()
    Columns("I:J").Select
    Range("I:J").Select
    Selection.Copy
    Selection.Insert Shift:=xlToRight
End Sub

 

[absherzad]

The following code works. However, it does not insert the columns instead it overrides the next columns.

Columns("I:J").EntireColumn.Copy ActiveCell.Offset(0, 1).EntireColumn