How to insert new text in a cell then pushing down the previous text?

[Loski]

Hi,
My solution so far is to copy the previous content of that cell & paste one cell down, then add the new text in that cell.

Example: I wish to store in Range("AN2").Value, the new action found. The list of all actions get stored into AN2:AN100.
So first I copy Range("AN2:AN100") then paste it to Range("AN3:AN101"). Then store in AN2 the new text.

But is there a better way?
Thanks,

[Arkadi]

Is this with vba code? or manual?
Either way why not just insert a new cell at AN2?

Range("AN2").Insert shift:=xlDown

[CK76]

Why not just insert new cell/row at AN2?
Insert Cell

Sub insertCellShiftDown()
Range("AN2").Insert xlDown
End Sub

Insert Row

Sub insertRowShiftDown()
Range("AN2").EntireRow.Insert
End Sub

[Loski]

Yes it works. So simple indeed!

Strange, I had tried Insert and somehow it had not worked. Now it does ?
That is in VBA of course.
Thank you,
Daniel

[Arkadi]

@CK76, great minds think alike (or is it fools seldom differ, lol)

[CK76]

great minds think alike (or is it fools seldom differ, lol)

lol. It might have something to do with country

[mehmetcik]

I would go this way.

You do not need to do anything other than type into AN2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$AN$2" Then Exit Sub
Application.EnableEvents = False
Temp = Range("AN2").Value
Application.Undo
Range("AN2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("AN2").Value = Temp
Application.EnableEvents = True
End Sub