I often times find myself pushing ctrl+shift+Down in order to select to the bottom of a column. I want to select all cells with text but sometimes there are empty cells in between and of course then it won't select to the bottom. I tried to build this macro in order to select a range to the bottom-most cell that isn't empty, skipping the blank cells. Doesn't work. Any help? 

Sub Grab_Down_To_Bottom()

CRow = ActiveCell.Row
CCol = ActiveCell.Column
lastRow = Range(CCol & Rows.Count).End(xlUp)

Range(Cells(CRow, CCol), Cells(lastRow, CCol)).Select

End Sub