Find Phrases and copy text in between

Hi! i need some help please!
i need to find a phrase into an excel sheet, once it is found, then copy from that information until another phrase, for example
Hello

1 2 3 4 5 6 8
2 3 4 5 6 7 8
5 7 8 9 6 4 3
6 5 6 7 8 9 0
7 2 3 4 5 6 7

Bye

So, i need to find "Hello" and then copy FROM "Hello" until the information above "Bye", "Bye" must not be included in the copy area.

Can you help me please?

thanks!!

This copies the content from Column A to Column D. Hope that helps.

Please Login or Register  to view this content.

Thanks! i get an error with the last code
Cells(w, "A").Copy Range("D" & Rows.Count).End(3)(2)
not sure why, but does this code copy the information between "Hello" and "Bye" no matter where they are located?

thanks again!

What is the error?

Modified to not include "Hello"

Please Login or Register  to view this content.

It currently searchs Column A

the error is:
Application-defined or object-defined error.

It comes up after this part of the code:
Cells(w, "A").Copy Range("D" & Rows.Count).End(3)(2)

Make sure you have all of your Dim statements.

i haven't modified that info.
Don't worry, anyway i think that code doesn't do what i need. i was told i need to use FOR in order to do what i want, but i'm not sure how nor where!

thanks anyway!!!!!!!!!

Can you provide a sample workbook with some dummy data? Do you want it too be for all sheets in the workbook?

Hope this works!!
thanks a lot for your help

This just selects the Range. You need to add a destination to paste. Just replace .Select with .Copy and add the destination.

Please Login or Register  to view this content.

Also I added Usedrange to find the search text. The previous code may not have worked because it was searching for data in Column A. On this sample at least there was none too be found.

thanks a lot for your time!!!!!!!!

You're welcome. Glad to help out.