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