Hacer la búsqueda de una forma diferente, trate de utilizar código WorksheetFunction.VLookup no me sirvió para lo que quiero.

Otra opción es utilizar el método Find( )

Por ejemplo:

Private Sub buscar_Click()
'Por.Dante Amor
    '
    If id.Value = "" Then
        MsgBox "Introduce un ID"
        id.SetFocus
        Exit Sub
    End If
    '
    'establece en el objeto b el resultado de buscar en la columna A
    Set b = Sheets(1).Columns("A").Find(id.Value, lookat:=xlWhole)
    If Not b Is Nothing Then
        'si lo encuentra
        nombre.Value = Cells(b.Row, "B")
        cedula.Value = Cells(b.Row, "C")
        fecha.Value = Cells(b.Row, "D")
    Else
        'si no lo encuentra
        MsgBox "El Id no existe"
    End If
End Sub

Lo que hace el método Find( ) es buscar en  una hoja, en una columna o en un rango y te devuelve el resultado en el objeto b

Si no encuentra el dato, el objeto b es igual a "nothing"

Prueba con este método y me comentas.

Por otra parte, no entendí a qué te refieres con esto:

Pero el problema es que no puedo mover la columna porque la necesito en la tercera posición

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.