Ride the Range from the Bottom to Find Last Row

 
Sub count()
    cells(Rows.count, 1).End(xlUp).Select
End Sub

1.	Consider only cells that contain data in the form of numbers, text, and formulas
2.	Uses the Find method to reduce the number of cycles spent in VBA loops:
3.	Working with Find and Replace
4.	Continuing a Search with the FindNext Method and FindPrevious Method
5.	Searching for and Replacing Formatting
6.	Finding the Last Used Cell in a Column or Row
7.	Find the First Non-Zero-Length Cell in a Range

Ride the Range from the Bottom to Find Last Row : Find « Forms « VBA / Excel / Access / Word