Total of rows in UsedRange Area

[me]

Hello All.

I have the following Code:

Option Explicit
Public Sub LastCell()
Dim X As Range
Set X = Range("A65536").End(xlUp).Offset(1, 0)
X.Select
X.Value = ????
End Sub

I need help getting the value of the number of rows in the usedrange area to
put in a cell that is in the row just under the last row.
Any suggestions?

Any help appreciated

 

[Tom Ogilvy]

Option Explicit
Public Sub LastCell()
Dim X As Range
Set X = Range("A65536").End(xlUp).Offset(1, 0)
X.Select
X.Value = x.row - 1
End Sub