Nice clean way to Measure/set EOD of worksheet

Hello and thank you for time and effort to review this thread.

This is something that has been bugging me for a long time. I found one of cleanest methods to measure/set the last row (EOD) of a worksheet is

EODr=Range("A65536A").End(xlUp).Row

It reports the last row reliably even if the column includes blank cells above EOD, it will ignore that and report the last 'non-vacant' cell. Other methods report the first occurance of a blank cell.

The problem is, the syntax is nasty, I would like to report the column numerically instead of using an alpha ('A...'), for example

EODr = Range(Columns(1)).End(xlUp).Row

This doesn't work but it would be a big improvement.

Here is an even better example

EODr = Range(Columns(1:5).End(xlUp).Row

This would be the ultimate.

Is there a way to adapt this to measure the last column, something like this

EODc = Rows(1:10).End(xlToLeft).Column