buscar, ingresar y editar

Muy buenas noches, si alguien me puede ayudar a crear un macro el cual al ingresar un numero de cedula, me lo busque en una lista y me despligue la informacion que tiene en las columnas siguientes, y si la informacion esta errada me de la opcion de editarlo y si no encuentra la informacion me deje agregarlo, yo lo estaba haciendo con formulas y macros pero demanera independiente, pero nunca pude editar la informacion, las formulas que tenia eran las siguientes

[TABLE=width: 80]

[TR]

[TD=class: xl68, width: 80]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;1;FALSO)[/TD]

[/TR]

[TR]

[TD=class: xl68]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;2;FALSO)[/TD]

[/TR]

[TR]

[TD=class: xl68]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;3;FALSO)[/TD]

[/TR]

[/TABLE]

y el macro para ingresar datos era este

Sub entradas()

Dim ced As String

ced = InputBox(" CEDULA" & Chr(13))

ActiveSheet.Range("BA2").Value = ced

Dim fec As String

fec = InputBox(" FECHA" & Chr(13))

ActiveSheet.Range("Bb2").Value = fec

Dim texto1 As String

texto1 = InputBox(" NOMBRE" & Chr(13))

ActiveSheet.Range("Bc2").Value = texto1

Dim texto2 As String

texto2 = InputBox(" DIRECCION" & Chr(13))

ActiveSheet.Range("Bd2").Value = texto2

Dim texto3 As String

texto3 = InputBox(" SEXO" & Chr(13))

ActiveSheet.Range("Be2").Value = texto3

Dim texto4 As String

texto4 = InputBox(" EDAD" & Chr(13))

ActiveSheet.Range("Bf2").Value = texto4

Dim texto5 As String

nota = InputBox(" NOTAS" & Chr(13))

ActiveSheet.Range("Bg2").Value = nota

[bA2:BH2].Copy Destination:=Sheets("Hoja2").[AA65536].End(xlUp).Offset(1, 0)

Columns("AH:AH").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Selection.End(xlDown).Select

ActiveSheet.Range("A1").Select

End Sub

Gracias por la ayuda