شناسایی آخرین ردیف اطلاعات

[~M*E*H*D*I~]

با سلام خدمت دوستان
در مورد شناسایی آخرین ردیف در اکسل کد زیر هم مناسب هست

Sub FindLastCell()
Dim lRow As Long, lCol As Integer, mrow As Long, mCol As Integer, i As Integer
lCol = ActiveSheet.UsedRange.Columns.Count
mrow = 0
For i = 1 To lCol
lRow = Range(Cells(Rows.Count, i), Cells(Rows.Count, i)).End(xlUp).Row

If lRow > mrow Then
mrow = lRow
mCol = i
Else
End If
Next i

lastrow = mrow

End Sub