Marco help - fill down data based a value

[Garethc01]

Hi Excel Guru's

I'm hoping one of you can help me with a macro in Excel 2007.

I have a row of data as follows on 'sheet1' with the word 'Dog' starting in cell A1.

	A	B	C
1	Dog	Cat	Bird
2	1	2	3

<tbody>
</tbody>

What I am after is a macro that will on 'sheet2' list the data as shown below. I want the word to appear the number of times based on the value below it.

	A
1	Dog
2	Cat
3	Cat
4	Bird
5	Bird
6	Bird
7	Bird

<tbody>
</tbody>

Any assistance would be greatly appreciated.
Gareth

 

[Garethc01]

Hi Joe, firstly sorry for the slow reply.

I copied the code straight across into excel - very strange how it is not working for me. I have checked and put a lower case 'L' and still no luck

 

[JoeMo]

Hi Joe, firstly sorry for the slow reply.

I copied the code straight across into excel - very strange how it is not working for me. I have checked and put a lower case 'L' and still no luck

Does your data begin in row 1 as you show in your original post? What is the value of lC when the code fails?