LastRow = Cells(rows.count,5).End(xlup).Row
might work

or
LastRow = Range("E241").End(xlup).Row

Regards,
Tom Ogilvy

"Karl Thompson" wrote in message
...
This always return an error:

LastRow = Application.Match("", Range("E1:E240"), 0)

though E90 is blank.

What gives?