10/18/2019 - 11:37 PM

Select to end of column range

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