Okay. Some questions for you:
What kind of data do you have in Columns A & B?
What is the search doing for you?
What are you hoping to have happen?
Can you attach a zipped copy of the worksheet?
Also, when you have lines that end in Select, and the next begins with Select, normally you can combine into one line, like the following:
Code:
Sub Example()
ActiveCell.Offset(1, 0).Select
Rows("25:34").Copy
Rows("19:19").Insert Shift:=xlDown
End Sub
I have to run right now, but if no one else looks at it, I will tomorrow.
Just as a note: when you post code, it is easier to read if you use the special tags. (without the spaces).
[ code ]
[ /code ]