VBA Loop: Insert Row based on Criteria

[Ada01]

Hello

It is final, I cannot master loops, they just do not make sense to me for whatever reason.

We have a custom system that has been modified to present a report that is one step from being able to be uploaded. This reports is usually 50 - 75 transactions long and is being manually and incorrectly changed each week it is run.

I need a macro that will start at the top of column A, ignore the header and run a macro until it reaches the last instance of a find function. Each time it finds the criteria it inserts a row above and adds a name to the field

1. Find: "TRNS"
2. Insert an entire row above the "TRNS" line.
3. Select the Cell in Column A of the new line and type "ENDTRNS"
4. Move on to the next instance and repeat until the last instance of "TRNS"

I think this is going to be the best way. The other option is to look for "SPL" and add a line below, but there are instances where more than one "SPL" exists in a row and that code that i have tried just really messes with the end result.

I have attached a sheet with the data source and the end result as it should look.

Thanks for any help you can give.

Adam

[rylo]

Hi

The code below does what I think you want, but doesn't give the same result as your output. Can you explain why the TRANS in Output!A16 doesn't have an ENDTRANS immediately above?

Please Login or Register  to view this content.

rylo

[Ada01]

I will give that a try . Thanks!

The missing endtrns is part of why I want a macro the works ... Eliminate errors like that one