Bisual base excel

[pana99]

Hola, aca te paso un codigo que hace la busqueda que necesitas
Entiendo tenes en la columna A el nombre y en la B la direccion
Luego tendras que adaptarlo para controlar que no ingresen valores nulos, etc, pero esto es lo central de tu busqueda.
Espero te sirva

Código:

Option Explicit
Sub Busca()
Dim Nombre As String, MiRango As Range, Temp As Integer, Linea As Integer
'Porque si no lo encuentra pone 0
    On Error GoTo ErrorBusq
    
    'Para saber cuantas lineas hay en la columna A
    Temp = Range("A1").CurrentRegion.Rows.Count
    'Rango de la columna A donde se buscaran los datos
    Set MiRango = Range("A1 :A" & Temp)
    'Nombre a Buscar
    Nombre = InputBox("Nombe a Buscar", "Buscar")
    
    'Range("b11").Formula = Application.WorksheetFunction.Match(Nombre, MiRango, 0)
    Linea = Application.WorksheetFunction.Match(Nombre, MiRango, 0)
    'Si encontro el dato
    If Linea <> 0 Then
        'Cambio el nombre, o dejo el que estaba
        Range("A" & Linea).Value = InputBox("Nuevo Nombre", "Nombre", Nombre)
        'Cambio la direccion
        Range("B" & Linea).Value = InputBox("Nueva direccion", "Direccion")
        MsgBox "Cambio Realizado"
    End If
    
    Exit Sub
    
    
ErrorBusq:
        'Significa que no esta
        If Err.Number = 1004 Then
           Linea = 0
           MsgBox "No existe: " & Nombre
        End If
End Sub