Copy rows X times

Hi,

I have a list of data which i want to copy to a list in another sheet, but I want each row to duplicate 5 times before the next row is copied.

To be more specific:

In Sheet1, column A:

Apple
Banana
Orange

I want it to show like this in Sheet2:

Apple
Apple
Apple
Apple
Apple
Banana
Banana
Banana
Banana
Banana
Orange
Orange
Orange
Orange
Orange

Any suggestion of how I can do this with a macro?

Thanks in advance :-)