ActiveCell Last Column Select

Hi,
I am using following code to select activecell's last column.
But, as you can see the following code I put 10000 as a default.
Lets make following code more professional ?

ActiveCell.Offset(0, 10000).End(xlToLeft).Select

Note: Following code may help you.

Cells(1, Columns.Count).End(xlToLeft).Select