Come imitare la combinazione di tasti Ctrl + Maiusc + freccia?

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