Spilt data into columns

Thanks so much! It works, by the way, I got error when the some of the cell has "10 fruits Apple", is there a way to do a partial match?
I also tried to use the entire range but it doesn't work?