Insert multiple columns to the right in sequential order

Question

Aim:  selecting many columns, copying them, and then placing each of the copies to the right of the original. Examples include choosing columns A, B, and C, duplicating them in that order, and then creating SIX columns with the formulas A=B, C=D, and E=F.

Any suggestions on how I can change "Shift:=xlToRight" to insert columns to their right rather than at the right end of the full range are welcome.

Answer 1

Duplicate Columns

• Why these complications?
• Flexibility. You don't have to select entire columns or adjacent columns. The selected cells can be in any row or column and they can be selected in any order. The line Set rg = Selection.EntireColumn takes care of all issues that might occur without it.

Option Explicit

Sub DuplicateColumns()
    
    If Selection Is Nothing Then Exit Sub ' no selection
    If Not TypeOf Selection Is Range Then Exit Sub ' not a range
    
    Dim rg As Range: Set rg = Selection.EntireColumn
    
    Dim arg As Range, crg As Range, a As Long, c As Long 
    
    For a = rg.Areas.Count To 1 Step -1
        Set arg = rg.Areas(a)
        For c = arg.Columns.Count To 1 Step -1
            Set crg = arg.Columns(c)
            crg.Copy
            crg.Offset(, 1).Insert xlShiftToRight, xlFormatFromLeftOrAbove
        Next c
    Next a
    
End Sub