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