Extract data and pasting onto spreadsheet dynamically?

I have 5 types of fruits in my inventory. Apple, Orange, Grape, Mango, Pear

Every day there will be a request to list them down in one column according to quantities, for example,

Request via phone/email/fax (the below layout is not fixed, may be lined up horizontally.)
-----------
Apple - 1
Orange - 3
Grape - 4
Mango - 1
Pear -2

Result in B(column) of spreadsheet
-----------
Apple
Orange
Orange
Orange
Grape
Grape
Grape
Grape
Mango
Pear
Pear

Is there any alternative way to speed this up?

I have been doing the manual way of typing the fruit into the rows and dragging the pointer when there are more than 1 to create multiple entries.

Thanks for the reply but may I ask how do I use this? (sorry, newbie here)

Non VBA version, see attached. Put your data in A field.

HTH,
Windknife