Hi Chuck,
as follows:

Sub Test()
With ActiveSheet
.Range(.Cells(9, ActiveCell.Column), _
.Cells(65536, ActiveCell.Column)).Select
End With
End Sub

Regards
Frank
________________________________________________
Frank Arendt-Theilen, Microsoft MVP Excel
E-Mail: