Macro for selecting CTRL+SHIFT+DOWN

[voice]

I want to be able to replicate the CTRL+SHIFT+DOWN keypress, as part of a bigger macro project.

So far, the closest thing I can find is this:


Find the last used cell, before a blank in a Column:

Sub LastCellBeforeBlankInColumn()
Range("A1").End(xldown).Select
End Sub


Instead of just selecting the end cell of that column, I wanna be able to select from A1 TO that cell.

How?!

Thank you in advance!

 

[VoG]

Try

Range("A1:A" & Range("A1").End(xlDown).Row).Select

 

[jim may]

Another way;

Range(Range("A1"), Range("A1").End(xlDown)).Select

 

[voice]

Thank you! That worked perfect.
Now stuck renaming the highlighted section...

Sub Productrename()

Range(Range("AL2"), Range("AL2").End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="products", RefersToR1C1:= _
"='User List'!R2C38:R501C38"

End Sub

Cos the above code refers to an unchanging range of cells to rename, whereas I want it to only rename the selected cells from the first part of the code...

Is this getting implausible? :P
I'm guessing it's to do with the RefersTo part, but am unsure as to how to proceed.