Insert row above True Returned

[DebbieCox]

I'm new to this in Excel but was very familiar with Macros making my life so easy with Lotus 123!!! Thanks in advance for helping me make the transition!

I need to insert a row with the value "ENDTRNS" above the row with TRNS

Currently
TRNS
SPL
SPL
TRNS

to be

TRNS
SPL
SPL
ENDTRNS
TRNS

 

[Kaper]

Such code shall do the job:

Sub test()
Dim lr As Long, i As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = lr To 2 Step -1
  If Cells(i, "A") = "TRNS" Then
    Rows(i).Insert
    Cells(i, "A") = "ENDTRNS"
  End If
Next i
End Sub

If there is a lot of TRNS occurences it will not be quick, so other approach shall be adopted. But may be this is good enough. Of course use your column name - I assumed it is A.

 

[Micron]

Based on your post why would it not be
ENDTRNS
TRNS
SPL
SPL
ENDTRNS
TRNS
?

 

[Kaper]

I expect these are "enclosing" texts start transaction, some actions , end transaction, start next transaction, again some actions, end transaction, end so on.
So first row transaction shall remain in starting row,

that's why I proposed:
.

For i = lr To 2 Step -1

not

For i = lr To 1 Step -1

But of course I may be wrong, so let's wait for Debbie's comment