How to insert a column at the end or as the last column in excel using VBA

[bhandarx]

Hi,

I need to insert a column as the last column in an excel using VBA. Could you please help me to do this?

I need to insert a column as "Last Column" in the excel.

[TABLE="class: grid, width: 200, align: left"]
<tbody>[TR]
[TD]Sl.No(A)[/TD]
[TD]Name(B)[/TD]
[TD]Last Column(C)[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]






Best Regards,
bhandarx

 

[sastoka]

Hi There

This dhould do it

Sub INSERT_COL()

Dim LastCol as Long

    LastCol = ActiveSheet.Cells(1,Columns.Count).End(xltoLeft).Column

    Columns(LastCol).Insert Shift:=xlToRight

End Sub

regards.