Hello again!

Recently I had this problem: 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.

... and tried the following:
iLastRow = Cells(Rows.Count,"A").End(xlUp).Row

It works in general, but unfortunately not in my document.
I can't find the error. Does anybody know what the problem
might be? iLastRow always turns out as 1 which is
incorrect. Maybe excel cant't find data, but I don't know
why ...

Thanks for helping me,
Maria