Range Select + Delete Blanks

i have the following code:

Sub DeleteID14CPMBlank()
    Range("L65518:O65518").Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
End Sub

i would like to somehow amend the line

Range(Selection, Selection.End(xlUp)).Select

and make it go all the way up but then go down one row ... if that makes sense... (without selecting the cell)

i've tried

Range(Selection, Selection.End(xlUp)-1).Select

but that doesnt work