You're quite right; change my:wkSheet.Range("A:B").EntireColumn.Insertto:wkSheet.Range("A:A,B:B").EntireColumn.Insert