Thread: Macro to move to last row of data then move down one row

hi,
i want to select the last cell that has data and then move down one row, i made this macro, but it's not working, it won't go down one cell once it has selected the last row that contains data:

Selection.End(xlDown).Select
    Range(Selection, ActiveCell.Offset(1, 0)).Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.ClearContents

Thanks for wrapping your code

Try

Dim LastCell As String
LastCell = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Address
   
Range(ActiveCell, LastCell).ClearContents

VBA Noob