Hi Swamy

This code should work assuming that your first column is "A" (if not
change the column number in the code appropriately.

Sub InsertColumn()
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
End Sub

Thanks and Regards
Karthik Bhat
Bangalore