Ordenar rango indeterminado

Espero que no trabajes en una central nuclear, ni en un hospital, ni en
ningún trabajo delicado. La osadía no es una virtud, es un DEFECTO.



"Belinda" escribió en el mensaje de noticias
news:
Buenas otra vez...

No reirse por mis nulos conociimientos de programación, pero
brujulenado por aqui he hecho cosas cojonudas que ni yo mismo se como
he llegado a hacerlas...Ahora tengo el problema de ordenar un rango
que no se donde acaba (esta es una cruz para mi) y ni corto ni peresso
cojo este código y lo endiño en el módulo...

Sub Ordenar_2()
Dim Rng As Range
With ActiveSheet
Set Rng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End
(xlUp))

Rng.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range( _
"D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase _
:=False, Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End With
Range("A2").Select
End Sub

..pero no cuela ¿Me podéis por favor decir como tengo que hacerlo?