'Finding the last used row
Sub lastRow()
    Dim LastRow As Long
    With ActiveSheet
         LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    End With
    MsgBox LastRow
End Sub