Range Select + Delete Blanks

[pr4t3ek]

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

[Leith Ross]

Hello PD,

When you say all the way up, do mean to row 1 or the first empty row in the range?

Sincerely,
Leith Ross

[pr4t3ek]

empty row in the range

[Leith Ross]

Hello PD,

One more question. Which column will always be the longest or do they all vary?

Sincerely,
Leith Ross

[pr4t3ek]

they can vary.
column L & O will always having something(a value) in there though..

[Leith Ross]

Hello PD,

This code uses column "L" to determine the last row.

    Set Rng = Range("L65518:O65518")
    LastRow = Rng.Cells(Rng.Rows.Count, 1).End(xlUp).Row

Sincerely,
Leith Ross

[pr4t3ek]

so how do i use that in the context of

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

where i want those rows to be deleted (because they are blank and do not hold any data in them)