Stop search after going through file once

I'm writing a macro that searches for text in a file and then copies the cell and the cell next to it to another sheet.
I've gotten to the point where it does exactly what I state above but the problem is the search keeps on looping and adding the same values (I added a max of 25 times to the loop for test.
How do I stop the script when it's found all matches?

Please Login or Register  to view this content.

If anyone knows how to do this I would be very happy if they could help me out

Not sure I understand what you're trying to accomplish, so maybe try this on a copy first.

Please Login or Register  to view this content.

I'm getting a compilation error: Loop without Do.. which is strange since Do is 6 lines about Loop

Can you attach a workbook with some sample data. To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.

Sorry it took some time but I had to change and delete some data since it's a work file.
I added some text inside the document which should help you understand what is happening and what I want happening.
Thanks for the help so far

It works now! Thanks a lot!!!
Just one more question: You have shortened all code's and actions which makes it hard for me to read and alter (since I need it to do some extra stuff every time a match is found).
Are you willing to (shortly) explain what your code does or split it into some more steps so its easier for me to understand and tinker with?
Thanks!

You're welcome. Glad to help out.

This line defines the last row with data in Sheet KKS

Please Login or Register  to view this content.

Therefore the loop will start the count with the number of rows with data and end when it reaches 1.

This line uses the Like operator instead of cells.find

Please Login or Register  to view this content.

It basically does the same thing. Just a matter of habit.

This line copies the activecell range to Sheets("Input") to one row below the last used cell in Column A.

Please Login or Register  to view this content.

If you need further explanation, let me know. BTW thanks for the feedback.

Thanks again. I think I get it now. I think I can get on with it now but if I need help or further explanation I'll be back!

Again welcome. Please comply with Forum Rule No. 9 for this thread. If you need further help from me you can PM.

9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.

Hehe,
I didnt know how to mark it as solved so I renamed my reaction to solved.. should me marked solved now though!