adding and copying rows

I have a list of items, and I want each item to appear 6 times, althought now they are just there once, for the last sheet i went to add row then dragged down what was in the box, but there has to be an easier way.
Now:
a
b
c
d

What I want:
a
a
a
a
a
a
b
b
b
b
b
b
c
c
c
c
c
c
d
d
d
d
d
d

I am a very new excel user and cannot figure out how to write a macro or something to do this. please help.

Thanks in advance for any help.

Might be easiest to just do it by hand once if there aren't loads of items. I fthere are, this'll do it (select the first entry in your list then run it)

sub sixplicate
do
range(activecell.offset(1,0),activecell.offset(6,0)).entirerow.insert
range(activecell.address,activecell.offset(5,0).address).filldown
activecell.offset(6,0).select
loop until activecell.value=empty
end sub



Col

Thanks I will try, I have to work with thousands of items and i have done 2 of the documents by hand and it takes hours, and there are more documents to come so I am kinda frustrated with doing it by hand