Excel - Buscar informaciòn en hoja con macros

Private Sub CmdBuscar_Click()

Dim id_nombre, idbusca As String

Dim UltimaFilaEncontrado As Integer

Dim encontrado As Range

Dim NumRows As Long

Dim Fila As Integer

' si el valor a buscar no esta ingresado salgo.....

If txtIdentificacion.Text = "" Then

   MsgBox "Digita el N° de indentidad a Buscar", vbCritical

   Exit Sub

End If

'Asigno valores a las variables

Fila = 1

UltimaFilaEncontrado = 0

'Aqui busco al rango  dentro de la columna A   -- es decir de A1 hasta AN  de las ocupadas

ultimaFila= Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row

Do While Fila <= ultimaFila

    If TextBox1.Text = Range("c" & Fila).Value Then ' si lo encuentro digo en que fila hasta cuando salga

            UltimaFilaEncontrado = Fila

    End If

Fila = Fila + 1

Loop

    'si el valor no fue encontrado seguira siendo 0 entonces no encontre nada salgo del sub ya no sirve que siga haciendo nada

    If UltimaFilaEncontrado = 0 Then

       MsgBox "Elemento NO encontrado"

       Exit Sub

    End If

 'aqui lleno todos los textos del formulario

 TextBox2 = Range("B" & UltimaFilaEncontrado).Value  'aqui cambiaras el nombre del textbox y la celda

 TextBox3 = Range("C" & UltimaFilaEncontrado).Value

 TextBox4 = Range("D" & UltimaFilaEncontrado).Value

 TextBox6 = Range("E" & UltimaFilaEncontrado).Value

    'Pongo el numero de coincidencias en base a la formula de abajo.... como ya valide que esto es si existe .. entro....

    TextBox9.Value = WorksheetFunction.CountIf(Sheets("usuarios").Range("c:c"), TextBox1)

 txtIdentificacion.SetFocus

End Sub