UsedRange method to find number of used rows in a worksheet

Sub UsedRows_UsedRange()

Dim usedRows As Long

usedRows = ActiveSheet.UsedRange.Rows.Count

MsgBox usedRows

End Sub