Llevar el foco a la ultima fila en blanco

Tronico, puedes agregar el siguiente código antes del End Sub:

Selection.End(xlDown).Select

osea

Public Sub OrdenarBanco()
Range("A5:D20000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Selection.End(xlDown).Select
End Sub


Saludos,
Francisco.

"tronico" escribió en el mensaje
news:
Tengo el siguiente codigo para ordenar un rango determinado de celdas:

Public Sub OrdenarBanco()
Range("A5:D20000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

...y el problema que tengo es que me devuelve el foco a la primera
celca, en éste caso a la A5, y lo que yo quisiera es que me devuelva
el foco a la ultima fila para seguir añadiendo registros.

Gracias.