Find value X in columnA and paste entire row above value Y in columnA

I am attempting to write a macro that will find a value (BCode) in column A and cut and paste the entire row in the row above value Class.


Value BCode is always below value Class.

For each Class there is always a BCode.

There can be from 1 to 38 pairs of Class and BCode in any given sheet.

The number of rows between Class and BCode is NOT constant.

I would like the macro the loop through column A and paste the row with value Bcode in the row above value Class...sometimes the destination row is empty sometimes it is not. I do not want any data overwritten so if the row is not empty I need to insert a row for the data.

Sample workbook attached with the before and after.

Any assistance appreciated.

Thx

Hello. Try this code and see if it could help you.

Please Login or Register  to view this content.

Hi, Richards.
I´m glad it helped.
Thanks for the feedback.