Insert Column after Last Inserted Column

A simple macro:

1.Run macro: Add a column after A (I have data at column B)
-->Now column A:same, Column B: new blank, column C:previous column B
2.Run macro again: Add a column after B
...
3.Run macro again: Add a column after C
...