Find 2 words and copy and paste everything in between

**ScabbyDog** · 03-17-2013, 03:47 PM

I want a macro to search column A for the word Starting Time. I then want it to look in Col A for the word Ending Time. I then want to copy every cell in Col A between those words and paste it into sheet2 A1. After this, I want it to repeat the above except look for the 2nd time that Starting Time appears and the 2nd time that Ending Time appears and copy everything in between and paste into sheet2 B1. Thanks in advance!

The word Ending Time will always occur after Starting Time

**ScabbyDog** · 03-17-2013, 05:20 PM

Please Login or Register  to view this content.

The above I think is almost there. I just need to alter the line in red so that it only copies column A and not all the columns between where the words were found.

**AlphaFrog** · 03-17-2013, 05:26 PM

Please Login or Register  to view this content.

**ScabbyDog** · 03-17-2013, 05:28 PM

Says object variable or with block not set and highlights the Loop Until strFirstStart etc line. It pastes the data exactly how I want other than that. How do I solve the error message? Thanks for your help!

EDIT: Forget what I said above Alpha. Works a charm!!!!!

**ScabbyDog** · 03-17-2013, 05:46 PM

How do I change it to paste in col F the first time, and then when it loops and finds the 2nd instance of words paste it into G.

**AlphaFrog** · 03-17-2013, 06:21 PM

Add this one line...

Please Login or Register  to view this content.

**ScabbyDog** · 03-17-2013, 06:33 PM

Thanks Alpha. Brilliant as always. How would I alter it if I wanted to reverse the words. So look for Ending Time first. How would I alter it so that when it loops, it would search for the 2nd(or last instance as there will only ever be 2instances of the word)