Modificar líneas de hoja excel

Tengo un código para modificar entradas desde un formulario que me funciona perfectamente en una aplicación, al copiarla en otra aplicación no me guarda los cambios y no veo en que me equivoco, os adjunto el código por si le podéis echar un vistazo a ver si lo veis.

Gracias de antemano

Sub AceptarModificar()
Dim i As Integer
Dim j As Integer
Dim Final As Integer
Dim Final2 As Integer

For i = 4 To 10000
If Hoja5.Cells(i, 1) = "" Then
Final = i - 1
Exit For
End If
Next

For i = 4 To Final
If FrmNuevo.TextBox13= Hoja5.Cells(i, 1) Then
Hoja5.Cells(i, 1) = FrmNuevo.TextBox13 'Expediente
Hoja5.Cells(i, 2) = FrmNuevo.TextBox38 'fecha
Hoja5.Cells(i, 3) = FrmNuevo.ComboBox6 'Tipo
Hoja5.Cells(i, 4) = FrmNuevo.ComboBox7 'subtipo
Hoja5.Cells(i, 5) = FrmNuevo.TextBox15 'cliente
Hoja5.Cells(i, 6) = FrmNuevo.TextBox42 'finca
Hoja5.Cells(i, 7) = FrmNuevo.TextBox43 'municipio
Hoja5.Cells(i, 8) = FrmNuevo.TextBox18 'provincia
Hoja5.Cells(i, 9) = FrmNuevo.TextBox44 'cod pos
Hoja5.Cells(i, 10) = FrmNuevo.ComboBox5 'mediante
Hoja5.Cells(i, 11) = FrmNuevo.TextBox25 'Sup total
Hoja5.Cells(i, 12) = FrmNuevo.TextBox26 'sup construida
Hoja5.Cells(i, 13) = FrmNuevo.CheckBox5 'gps
Hoja5.Cells(i, 14) = FrmNuevo.Label43 'hipervinculo
Hoja5.Cells(i, 15) = FrmNuevo.TextBox19 'nif
Hoja5.Cells(i, 17) = FrmNuevo.TextBox75 'observaciones
Hoja5.Cells(i, 20) = FrmNuevo.TextBox14 'fecha encargo
Hoja5.Cells(i, 21) = FrmNuevo.TextBox16 'dom fiscal
Hoja5.Cells(i, 22) = FrmNuevo.TextBox39 'tf fijo
Hoja5.Cells(i, 23) = FrmNuevo.TextBox40 'tf movil
Hoja5.Cells(i, 24) = FrmNuevo.TextBox17 'municipio
Hoja5.Cells(i, 25) = FrmNuevo.TextBox20 'cod pos cliente
Hoja5.Cells(i, 26) = FrmNuevo.TextBox74 'importe dro
Hoja5.Cells(i, 27) = FrmNuevo.TextBox16 'dom fiscal

Exit For
End If
Next

For j = 4 To 10000
If Hoja9.Cells(j, 1) = "" Then
Final2 = j - 1
Exit For
End If
Next

For j = 4 To Final2
If FrmNuevo.TextBox13 = Hoja9.Cells(i, 1) Then

Hoja9.Cells(j, 2) = CDbl(FrmNuevo.TextBox67)

Exit For
End If
Next

'Dejo todo en blanco
FrmNuevo.TextBox13 = ""
FrmNuevo.TextBox38 = ""
FrmNuevo.TextBox15 = ""
FrmNuevo.TextBox42 = ""
FrmNuevo.TextBox43 = ""
FrmNuevo.TextBox18 = ""
FrmNuevo.TextBox44 = ""
FrmNuevo.TextBox25 = ""
FrmNuevo.TextBox26 = ""
FrmNuevo.TextBox19 = ""
FrmNuevo.TextBox75 = ""
FrmNuevo.TextBox14 = ""
FrmNuevo.TextBox16 = ""
FrmNuevo.TextBox39 = ""
FrmNuevo.TextBox40 = ""
FrmNuevo.TextBox17 = ""
FrmNuevo.TextBox20 = ""
FrmNuevo.TextBox74 = ""
FrmNuevo.ComboBox6 = ""
FrmNuevo.ComboBox7 = ""
FrmNuevo.ComboBox5 = ""
FrmNuevo.Label43 = ""
FrmNuevo.CheckBox5 = ""
End Sub