Insert Column after Last Inserted Column

Hi, mariosmk555,

you should be more precise in what you are asking. In the opening post it was one column (the last one) which should be shifted. Now itīs two columns, and Iīm not so sure about the columns you have used or the range where to insert:

Sub EF1008505_4()
'insert two columns before the last two columns of data
Dim lngIns As Long
lngIns = Cells(1, Columns.Count).End(xlToLeft).Column - 1
If lngIns < 3 Then lngIns = 3
Cells(1, lngIns).Resize(1, 2).EntireColumn.Insert
End Sub

Sub EF1008505_5()
'will start at Column C and add two columns when the workbook isnīt closed in the meantime
'If you wan to keep the value for the next opening you could write it to a cell on a hidden sheet,
'use a Name to store it or store the value in a textfile.
Static lngIns As Long
If lngIns = 0 Then
  lngIns = 3
Else
  lngIns = lngIns + 2
End If
Cells(1, lngIns).Resize(1, 2).EntireColumn.Insert
End Sub

Ciao,
Holger

Hi, mariosmk555,

mark the cell with the cursor, goto the NameWindow (where you see the Cell Address), put "SteadyColumn" (without quotes and blanks) and press Enter.

Sub EF1008505_6()
Range("SteadyColumn").Resize(1, 2).EntireColumn.Insert
End Sub

Stop quoting full posts, please! And if your Excel can convert pictures into Workbooks go ahead with posting pictures (my versions of Excel canīt do that).

Ciao,
Holger

Perfect!
If you could also answer this question since you solved the problem, you will be extremely helpful.

How I can copy information from another cell to the newly created columns but by refering to them not by their actual names but as the column which is 1 time left to steady column and 2 times left to steady column?

This is only what I need: Range("SteadyColumn"-1) ..

You are a pro mate!!

Hi, mariosmk555,

you should really make up your mind about what you want prior to asking questions and not alter the requirements on each post.

Sub EF1008505_7()
With Range("SteadyColumn")
  .Resize(1, 2).EntireColumn.Insert
  .Offset(0, -2).Resize(1, 2).EntireColumn.Value = .Offset(0, -4).Resize(1, 2).EntireColumn.Value
End With
End Sub

Ciao,
Holger