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).ad dress).filldown
activecell.offset(6,0).select
loop until activecell.value=empty
end sub



Col


--
colofnature
------------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...o&userid=34356
View this thread: http://www.excelforum.com/showthread...hreadid=558649