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