Ordenar una excel

EnR
05 de Julio del 2004
Hola mi problema es que quiero ordenar una hoja Excel para lo cual selecciono todas las celdas y luego intento ordenar pero me da un error en el rango seleccionado a ver si alguien me puede echar una mano, os pongo el codigo que uso:

Sub OrdenarFilas()
With Libro.Sheets(1)
.cells.Select
.Selection.Sort Key1:=Range("A1"), Order:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub