Como puedo hacer modificar datos de una hoja de excel con macros?

Tengo un problema porque no puedo lograr que mi formulario funcione no se que estoy haciendo mal y lo vengo intentando pero nada voy a dejar el código para que lo verifiquen que esta mal, tambien estoy dejando el formulario para que tengan una idea.

Donde dice DNI es un combobox pero tambien lo hice que funcione como listbox.

Bueno espero me puedan ayudar.

Gracias de antemano

Private Sub bot_mod_Click()
modificar
End Sub
Sub modificar()
Dim Fila As Long
Dim final As Integer
'es el nro del registro seleccionado
x = combo_DNI.ListIndex
For Fila = 3 To 1000
If Hoja3.Cells(Fila, 1) = "" Then
final = Fila - 1
Exit For
End If
Next

For Fila = 3 To final
If Me.combo_DNI = Hoja3.Cells(Fila, 1) Then
Hoja3.Cells(Fila, 1).Value = combo_DNI.List(x, 0)
Hoja3.Cells(Fila, 2).Value = combo_DNI.List(x, 1)
Hoja3.Cells(Fila, 3).Value = combo_DNI.List(x, 2)
Hoja3.Cells(Fila, 4).Value = combo_DNI.List(x, 3)
Hoja3.Cells(Fila, 5).Value = combo_DNI.List(x, 4)
Hoja3.Cells(Fila, 6).Value = combo_DNI.List(x, 5)
Hoja3.Cells(Fila, 8).Value = combo_DNI.List(x, 7)
Hoja3.Cells(Fila, 9).Value = combo_DNI.List(x, 8)
Hoja3.Cells(Fila, 10).Value = Me.txt_renovacion
Hoja3.Cells(Fila, 11).Value = combo_DNI.List(x, 10)
Hoja3.Cells(Fila, 12).Value = combo_DNI.List(x, 11)
Hoja3.Cells(Fila, 13).Value = combo_DNI.List(x, 12)
Hoja3.Cells(Fila, 14).Value = combo_DNI.List(x, 13)
Hoja3.Cells(Fila, 15).Value = combo_DNI.List(x, 14)
Hoja3.Cells(Fila, 16).Value = combo_DNI.List(x, 15)
Hoja3.Cells(Fila, 17).Value = combo_DNI.List(x, 16)
Hoja3.Cells(Fila, 18).Value = combo_DNI.List(x, 17)
combo_DNI.Value = ""
Exit For
End If
Next
'Lo posiciona en la primera celda
combo_DNI.SetFocus
'ENVIARA UN MENSAJE INDICANDO EL PROCESO
MsgBox "Se Activo al Personal Correctamente", vbExclamation, "Y.C."
Exit Sub
End Sub