Select last cell with the data in the column/range of cells

Hi,
I have used the following macro: http://www.excel-easy.com/vba/exampl...ast-entry.html what does works however this macro still select 'empty' cells that contains formula showing "" (blank) if false.
How can I programe this to select only 'visible' datas?

Test file attached: starting with A1 going down I wish to select only numbers we can actually see, not the formulas cells underneath.
I will have to change the range a lot as weel (instead having A1 I may need to have E1:N40 etc).

Hi,
Sorry to be a pain but this does the same thing actually... It still does select the cels with formulas that shows ""/blank/null.

I have an piece of code that finds me the first empty cell in the column and this is working for me but I do not know how to put this together so it does select the range of the cells - as stated above: E1:N60 for an example.

Here is the code I have and this finds next empty cell and ignores formulas that are null/blank/"":

Wb1.Sheets(6).Columns("E").Find(vbNullString, Cells(Rows.Count, "E")).Select

Is there the way to modify this code to achieve the task that select all cells in range E1:N60 up to next empty cell in E column?
You can ignore Wb1.sheets(6) part as I do know how to change this.

Hi,
This still doeas the same?? I'm not sure why now! ;(
Macro still select cells with formula that shows "" - blank as an result.

What do you mean by:
Be sure to qualify the worksheet for both ranges (or cells) references.

Is this something I need to change in excel settings?!

Hi,

Oh yes I knew about it but sometimes I just forget to add these when I do copy and paste code from form to new form (existing macro) and it did work well so this may be a reason why Cells have not referal Thank you for that.

Range("E1:M" & Range("E:E").Find("*", , xlValues, , 1, 2).Row).Select <--- This is what I need, thank you!