Come inserire una colonna vuota?

 
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 'Inserisce una colonna vuota in colonna A