Copy paste

Hi I have a very strange copy and paste macro that I need to make.
Basically I have a file which is like this:

Fruits Basket 1

Apples

Table of Apple Stats

Pears

Table of Pear Stats

Fruits Basket 2

Oranges

Table of Orange Stats

Apples

Table of Apple Stats

etc. etc.

I'd like to search the file and Copy the title of Fruits Basket 2 then Copy the Subtitle of Apples and then copy the table of Apple Stats using range selection Xldown and Xlright. Oh and then paste into a new sheet. I'm a little hesitant on whether I should be using some sort of For loop or If loop? Also note there is always a 2 cell gap between Apples and the Table of Stats. However the gap between the Title Fruits Basket and the next Fruit is either two or three cells.

Is there any way I can do this? It's so ridiculously annoying to have to search for apples every morning amongst all this fruit.