basically the same way:

Range("a1").End(xlDown).Select

although you rarely need to use select, but this illustrates what you want.

--


Gary


"Eric" wrote in message
...
Hello,

How do you translate in VBA the selection from the current cell down to the
last one (not blank).
If I had to do the operation manually in a workbook, I would select the
first cell, then hold SHIFT, press END then ARROW DOWN.

Thank you.

Eric