insert column goes haywire, why is this doing what its doing?

I have this small snippet of code:

            Columns("E:E").Select
            Application.CutCopyMode = False
            Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

the problem is that its adding 7 columns instead of 1.

can anyone provide insight for this? or is there a better way?