¿Cómo realizar una búsqueda y modificar datos encontrados?

Ojalas me puedan ayudar con lo siguiente. Tengo que realizar una búsqueda por nombre de usuario y esta me debe de entregar sus distintas responsabilidades y el porcentaje que lleva realizado.

Entonces una persona posee más de 1 responsabilidad y aparte cuando la encuentre el usuario tenga la opción de modificar dicho %,

La hoja donde se encontrara el botón para iniciar el formulario se llama "Hoja2", la búsqueda la debe de realizar en la hoja "Actividades Históricas"

Había diseñado un botón de búsqueda y lo hice de esta manera
"On Error Resume Next

Registro_historico.Value = WorksheetFunction.VLookup(Val(Lista.Value), Sheets("Historico actividades").Range("b22:f137"), 5, False)
Actividad.Value = WorksheetFunction.VLookup(Val(Lista.Value), Sheets("Historico actividades").Range("b22:f137"), 2, False)

Pero la búsqueda no la realiza
Registro histórico es donde se almacenara lo encontrado a porcentaje

Actividad es la descripción

Lista es el nombre que buscare