Search Range for Value Contained in a Cell then Cut/Paste Row Where Value is Found

Hi

I have a value (which can change) in cell B2 of Sheet("CALCS2 ALL"). I would like to search within a specified range (e.g. A:Q) for the value contained in B2. If found, I would like to cut the row containing the value, search for another value (e.g. Apples) in column E and insert the cut row above the row which has 'Apples' in column E.

Any help appreciated.

All in the same sheet Sintek.

I can probably be a bit more specific come to think of it. We only need to search in column E with the data starting at E14. The number of rows containing data is dynamic however the macro sorts the data such that the value being searched for will almost certainly be in the last used row in Col E before any blanks. i.e. if using 'end.(xldown)' starting at E14, the value will always be at the bottom of that range.

I hope that makes sense.

Apologies, ignore A:Q. The data starts at E14. I want to first search for the value contained in cell B2 and the range I am looking is the used range of column E starting at E14.

Perfect, thanks Sintek.