Why do you say you need "another solution by code"? What is wrong with using the formula solution you have already been given?

Note: if you don't want to use named ranges, you could change xor's array formula to:
=IF(ROWS($1:1)>COUNT($E:$E),"",INDEX($E:$E,SMALL(I F($E:$E<>"",ROW($E:$E)-CELL("row",$E:$E)+1),ROWS($1:1)+1)))
on row 7, then copy down as far as needed.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]