行を一行おきに挿入

sub 行を一行おきに挿入()
range(“a3″).select
do until activecell.value=””

activecell.offset(1).entirerow.insert
activecell.offset(2).select
loop
end sub