here's one way:replace:wkSheet.ActivateRange("B1").SelectSelection.EntireColumn.InsertRange("A1").SelectSelection.EntireColumn.Insertwith:wkSheet.Range("A:B").EntireColumn.Insert