Selects from first cell given to the bottom of the column of text in that range
' pass in the fully qualified range variable for the first cell
Sub selectToEndOfColumnRange(firstCell As Range)
Dim firstRow, lastRow As Range
Set lastRow = firstCell.End(xlDown)
Set firstRow = lastRow.End(xlUp)
Range(firstRow, lastRow).Select
End Sub