On Thu, 7 Jan 2010 18:45:01 -0800, OssieMac
wrote:


ActiveCell.SpecialCells(xlLastCell).Select
Cells(Selection.Row, "A").Select
or
Cells(Selection.Row, 1).Select

A little more info. If after selecting the last cell, if all cells between
the selected cell and Column A (on the same row as the selected cell) have
data then you can hold the Ctrl key and press left arrow and it would record
as follows.

ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlToLeft).Select


thanx