Attempt to Select Last Row problem

[Tachyon]

Would anyone have any ideas as to why this little piece of code results in the selection of Row 5003 (x= 5003)?
There is 'apparently' nothing in the spreadsheet except in the first 6 rows; or is it possible that there are 'things' in cells that I don't know about? And if so, any ideas as to how to find out what they are?
Thanks

Private Sub EndKeyPress()
Application.EnableEvents = False
x = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
Range("A" & x).Select
Application.EnableEvents = True
End Sub

 

[Legacy 68668]

UsedRange/SpecialCells(xlLastCell)

refers to the range that has been changed incl the cell with

1) format changed
2) cleared

so if you accidentally select any cells in 5003 and hit the delete key or change the cell format, it shoud appy upto that cell, even you only have 6 rows of data.

Range("a" & Rows.Count).End(xlUp)).Select

 

[Tachyon]

Ahhhh . . . I see!

Do you know how I can do this if I have rows with no data and columns with no data but I want it to go to the line after the last line where any one of the columns in the last line may have data? I'm using columns a thru J.

 

[Legacy 68668]

one way

Sub test()
Dim LastColumn As Long, LastRow As Long
LastRow = Cells.Find("*", , , , xlByRows, xlPrevious).Column
LastColumn = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
MsgBox Cells(LastRow, LastColumn).Address
End Sub

 

[Tachyon]

Thanks Seiya . . . a modified version of your code works perfectly

 

[Legacy 68668]

OOps
shold be

Sub test()
Dim LastColumn As Long, LastRow As Long
LastRow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
LastColumn = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
MsgBox Cells(LastRow, LastColumn).Address
End Sub

 

[Tachyon]

Yep . . . figured that bit