Seleccionar desde una celda fija a otra de otra columna variable

Estoy empezando a grabar macros con la grabadora y la vedad que no tengo ni idea de visual basic.

Lo que quiero es leleccionar un clasificacion que esta desordenada, que empieza en E8 (donde esta el titulo y es fija) y debe de seleccionar hasta la ultima celda de la columna O (esta varia) y luego la ordena segun criterios.

Os pongo la esta macro y lo que pasa es si añado una fila mas no la selecciona.

Muchas gracias a todos por vuestra informacion y la ayuda que ofreceis.

Sub Ordenar()

'

' Ordenar Macro

'

'

Range("E8").Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

ActiveWorkbook.Worksheets("Clasificacion").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Clasificacion").Sort.SortFields.Add Key:=Range( _

"O9:O31"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _

xlSortNormal

ActiveWorkbook.Worksheets("Clasificacion").Sort.SortFields.Add Key:=Range( _

"N9:N31"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Clasificacion").Sort

Range(ActiveCell, ActiveCell.End(xlDown)).Select

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("G5").Select

End Sub