Sub tt()
    With Selection
        shIn_ = .Parent.Index
        ad_ = .Address
        nr_ = .Rows.Count
        .Copy
    End With
    With Sheets(shIn_ + 1)
        .Select
        Application.ScreenUpdating = 0
        With .Range(ad_)
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
            For i = nr_ - 1 To 1 Step -1
                .Offset(i).Resize(1).EntireRow.Insert
            Next i
            .Offset(1, 16).Resize(1, 1).EntireColumn.Insert
            .Offset(, 17).Resize(nr_ * 2 - 1, 16).Copy
            .Offset(1, 1).Resize(1, 1).Select
        End With
        .PasteSpecial Format:=1, Link:=1, DisplayAsIcon:=True, IconFileName:=False
        .Range(ad_).Offset(, 17).Resize(nr_ * 2 - 1, 16).Clear
        Application.ScreenUpdating = 1
    End With
End Sub