Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.End(xlDown).Row < 65535 Then
Range(Cells(Selection.Row, Selection.Column), Cells(Selection.End(xlDown).Row, Selection.Column)).Select
End If
End Sub