try

Code:
Selection.Insert Shift:=xlToRight
intead of .Columns.Insert Shift:=xlToRight

or

Code:
.Columns("D:e").Insert Shift:=xlToRight[/B]