This code has been tested and works. I highlight multiple cells by holding
the Ctrl keys while selecting the cells. Had data in 5 different columns
which were non-adjacent.
Sub selectrows()
first = True
For Each cell In Selection
mycolumn = cell.Column
If first = True Then
Lastrow = Cells(Rows.Count, cell.Column).End(xlUp).Row
Set selectedRange = Range(Cells(1, cell.Column), _
Cells(Lastrow, cell.Column))
first = False
Else
Lastrow = Cells(Rows.Count, cell.Column).End(xlUp).Row
Set selectedRange = Union(selectedRange, _
Range(Cells(1, cell.Column), Cells(Lastrow, cell.Column)))
End If
Next cell
selectedRange.Select
End Sub