suggestion 1
you could just delete the rows
for rn = 500 to 1 step -1
if cells(rn,1)="" then
rows(rn).Delete
end if
next

suggestion 2
copy data to a new sheet then delete the blank rows


"QuietMan" wrote in message
...
I have 100 rows of information in an excel file bu there are about 200 or
so
blank lines. does any one know the code that I can use to load the
information into an array less the blank lines the place them into a
different area of the worksheet

Thanks

--
Helping Is always a good thing