¿Cómo mostrar la ultima coincidencia en búsqueda con formulario en Visual basic?

Tengo un formulario Visual basic que busca coincidencia en una tabla de excel, pero en el rango de criterios existen datos duplicados, y necesito que el resultado siempre muestra la ultima coincidencia encontrada según criterio.
Ejemplo: Necesito buscar el estado que se encuentra una solicitud de acuerdo al numero de ingreso de la misma.
El botón de búsqueda en el formulario esta de la siguiente forma:

Private Sub CommandButton1_Click()
On Error Resume Next
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Sheets(1).Range("A4:N600"), 3, False)
TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Sheets(1).Range("A4:N600"), 7, False)
TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Sheets(1).Range("A4:N600"), 9, False)
Dim Numero, numero_busca As String
Dim fila As Integer
fila = 4
Numero = TextBox1
Do While numero_busca <> Numero
    fila = fila + 1
    numero_busca = Sheets(1).Range("E" & fila).Value
    If numero_busca = Empty Then
        Exit Do
    End If
Loop
TextBox2 = Sheets(1).Range("A" & fila).Value
TextBox3 = Sheets(1).Range("K" & fila).Value
TextBox4 = Sheets(1).Range("I" & fila).Value
TextBox1.SetFocus
End Sub

Como podria indicarle el criterio para mostrar el ultimo resultado?