Thank you! It worked!

-----Original Message-----

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Maria" wrote in
message
...
Hello again!

To explain my problem properly: My macro fills in data
into a column with the length of the range called "vol1"
daily. Sometimes, if no value is found from the data
sources, it leaves cells blank. Now, I'd like to find
the
end of the list (last entry) but can't use the
specialCells
(xlCellTypeBlanks) command (because an empty cell might
not be the last entry). Is there any other option? I
think
the macro needs to check if from one empty cell on all
following cells (until the end of the range) are empty
too.

I hope someone can help! Thanks again,

Maria


.