Completar una macro

TE ajusté la rutina, quedando así:
Sub tyord3()
'
' tyord3 Macro
' Macro grabada el 25/06/2004 por mora
'
' Acceso directo: CTRL+b
Dim midato
Dim nro
nro = InputBox("Ingrese número a buscar")
If nro <> "" Then
Set midato = ActiveSheet.Range("B9:B200").Find(nro, LookIn:=xlValues, LookAt:=xlWhole)
'si midato No es Vacío.. es decir si la búsqueda es exitosa.....
If midato Is Nothing Then
MsgBox "No se encontró registro·"
Exit Sub
End If
midato.Select
Else
Exit Sub
End If
While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).Range("A1").Select
Wend
Selection.Value = Format(Now(), "h:mm:ss")
Range("B9:AL200").Sort Key1:=Range("E10"), Order1:=xlAscending, Key2:= _
Range("V10"), Order2:=xlDescending, Key3:=Range("AL10"), Order3:= _
xlAscending
End Sub
La instrucción de orden quedó un poco modificada porque en mi versión me presentaba error, pero dejá la tuya si funciona correctamente.
Fíjate que te reemplacé las instrucciones de copia de hora por 1 sola, pruébala y comentame si te quedó bien.
Saludos y no olvides finalizar la consulta.
Elsa
PD) Este mes 15 % de dcto en mis manuales, desde:
http://es.geocities.com/lacibelesdepunilla/manuales

Mil gracias Elsa, quedó espectacular y funcionó con el ordenamiento que yo tenía. De todos modos para que me fuera 100% práctico quisiera que la rutina terminara con una aparición del cuadro de diálogo, de modo que sólo me quede ingresar número enter, número enter, etc. a menos que lo cancele en el cuadro.
Desde ya me has dado una gran ayuda.