VBA macro for conditional copying and pasting into new sheet

Hello,
My VBA knowledge is very limited and this is currently beyond my scope. Any help, even if it is just a starting point that would help me figure it out on my own would be appreciated.

Data-Column A has all of the data in it. The amount of data can range from hundreds to thousands of lines and there is no specific pattern to how the data comes to the cell. It is copied and pasted from another source en masse.

Goal-Copy the data between cells that have "Data" and "End" in them and paste them in Sheet2. Sheet2 column A is blank.

Sheet1
A
1 aaaaaaaaaaaaaaaaaaaa
2 bbbbbbbbbbbbb
3 Data
4 45
5 36
6 17
7 End
8 dddddddddddd
9 eeeeeeee
10 Data
11 13
13 222
14 End
15 ffffffffffffffffffffffffffffffffffffff

Originally Posted by MarvinP

Hi JSH,

Here is some simple code to do what you want. See if you can understand it and apply it.

Please Login or Register  to view this content.

Attachment 571186

Hi MarvinP,
I applied it to the data I am working with and it worked perfectly. Thank you!
In attempt to understand more why is the "double" needed at the beginning section of the code? As stated in the OP my knowledge is limited.

Yes it does. Thank you.