Cannot Insert Column VBA

try the alternative

 Columns("A:A").Insert shift:=xltotright

or

 ActiveSheet.Columns("A:A").Insert shift:=xltotright