How to find the last row in an excel sheet: ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row Here is an example Dim LastRow As Long LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row For r = 1 To LastRow
Name (required)
Mail (will not be published) (required)
Website
Last articles