bug on the code

[Hansulet]

I have the bellow code:
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select
ActiveCell.FormulaR1C1 = "Nr decizie"
But I have the bug on the second line.
Could you explain me why?
Please help me to remove the bug

 

[Joe4]

Try this:
(note that you can get rid of the "Selects" - they are not necessary and slow the code down)

Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").FormulaR1C1 = "Nr decizie"

 

[Hansulet]

Now I have bug on your line:
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

 

[Joe4]

Did you copy and paste my code, exactly as I have written it (and not tried to type it yourself)?
What is the exact error message you are getting?

Do you have any of the following?
- Merged cells in column A
- Protected cells in column A
- Anything in column XFD

 

[Hansulet]

Run-time error '1004':
Microsoft Excel can't insert new cells because it would push non-empty cells off the end of the worksheet. These non-empty cells might appear empty but have blank values, some formatting, or a formula. Delete enough rows or columns to make room for what you want to insert and then try again

 

[Hansulet]

I mention that I have enough free columns and rows

 

[Joe4]

Run-time error '1004':
Microsoft Excel can't insert new cells because it would push non-empty cells off the end of the worksheet. These non-empty cells might appear empty but have blank values, some formatting, or a formula. Delete enough rows or columns to make room for what you want to insert and then try again

That tells you that you have done something to the last possible column of Excel ("XFD") that it thinks you are using it.
If you have formatted your entire page, that could cause this to happen.

If you hit CTRL and END at the same time, what cell does your cursor jump to?
This is what Excel thinks is your last used cell on the sheet.

If you do not want to go back and fix your sheet, you could just delete the last column (if you are sure there is nothing of value in it) before inserting a new one, i.e.

Columns("XFD:XFD").Delete Shift:=xlToLeft
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").FormulaR1C1 = "Nr decizie"

 

[Hansulet]

Yes, you are right.
Thank you!

 

[Joe4]

You are welcome.
Glad I was able to help!