Insert Column after Last Inserted Column

Originally Posted by HaHoBe

Hi, mariosmk555,

maybe like this:

Sub EF1008505()
Cells(1, Columns.Count).End(xlToLeft).EntireColumn.Insert   'adjust the row number to match data
End Sub

or

Sub EF1008505_2()
With ActiveSheet.UsedRange
  .Cells(.Cells.Count).EntireColumn.Insert
End With
End Sub

Ciao,
Holger

Hello and thanks. How can I set the first column tha the macro will start from? Lets say C.
Thanks again,