Cómo soluciono error -2147417848 (80010108) en tiempo de ejecución VB

Estoy haciendo un sistema en excel, digamos que no toco de oído, vi algo en la universidad (soy contadora) y el resto soy autodidacta por lo que es posible que le falte pulido a mi macro.

El problema que estoy teniendo, es que me sale el error -2147417848 (80010108) en tiempo de ejecución, error de automatización, pero solo en una PC de la empresa, en el resto anda todo ok. El archivo está compartido en Dropbox y lo usan simultáneamente dos PC. ¿Puede qué tenga que ver la sincronización de los archivos? Dejo el código a continuación

Es una macro relativamente larga que copia y pega desde la hoja Registración información en 3 hojas distintas.

Sub Registración_Grabar()
Application.ScreenUpdating = False
On Error Resume Next
If [G7] = "" Then
MsgBox "Falta ingresar fecha de la transacción, ingrese dicho dato y presione Grabar nuevamente"
Exit Sub

End If
If [n3] = 1 Then
MsgBox "Falta ingresar Periodo de pago o imputación (año y/o mes), ingrese dicho dato y presione Grabar nuevamente"
Exit Sub
End If
If [g6] <> "STR" And [j6] = "" Then
MsgBox "Falta ingresar el Cliente, ingrese dicho dato y presione Grabar nuevamente"
Exit Sub
End If
If [g6] = "REC" Then
If [g23] = "" Or [i23] = "" Then
MsgBox "Está ingresando un Recibo de Cobro sin informar el medio y monto de pago, ingrese esta información en la sección Fondos y presione Grabar nuevamente"
Exit Sub
End If
End If
desprotejer
With Sheets("Transac")
If [d2] <> "N" Then
i = [F2] + 6 ' Fila donde graba en "Transac"
.Cells(i, "A") = [e2] ' Id Tra
.Cells(i, "B") = [g6] ' IdCpr
.Cells(i, "C") = [G7] ' Fecha
.Cells(i, "D") = [H8] ' Clase
.Cells(i, "E") = [H9] ' PtoV
.Cells(i, "F") = [h10] ' Número
.Cells(i, "G") = [G11] & " - " & [H11] 'Periodo
.Cells(i, "H") = [j6] 'Cliente
.Cells(i, "I") = [f13] & " " & [f14] & " " & [f15] 'alquiler
.Cells(i, "J") = [E6] 'Monto
.Cells(i, "k") = [E11] 'Debe
End If
End With

With Sheets("Fondos")
df = [f4] + 5 'lo pongo afuera del for para que quede fijo el valor de f4
For i = 1 To [G4]
.Cells(df + i, "A") = [E4] ' IdFon
.Cells(df + i, "B") = [G7] ' Fecha
.Cells(df + i, "C") = Cells(i + 22, "C") 'IdCtaO
.Cells(df + i, "D") = Cells(i + 22, "D") 'IdCtaD
If [d2] <> "N" Then
.Cells(df + i, "E") = [e2]
End If
For j = 9 To 13
.Cells(df + i, j - 3) = Cells(22 + i, j) 'Importe, Nº Cheq, F.Cheq, Banco, Plaza
Next j
c = Cells(22 + i, "e") 'PosiFon
If c <> "" Then
If .Cells(c + 5, "k") < 1 Then
.Cells(c + 5, "k") = [E4] 'IdFonS
End If
End If
[E4] = [E4] + 1 'avanza IdFon
Next i
End With
With Sheets("Cuentas")
If [j6] <> "" And [g23] <> "" Then
f = [o3]
.Cells(f, "h") = [G7]
End If
End With
If [d2] <> "N" Then
[e2] = [e2] + 1 'avanza IdTra
End If
With Sheets("Tablas")
If [j3] <> "" Then
m = [j3] 'fila
n = [j4] 'columna
.Cells(m, n) = .Cells(m, n) + 1
End If
End With
protejer
PDF

Registración_Limpiar
ActiveSheet.DisplayPageBreaks = False

End Sub

Se realizo en excel 2019 pero tengo que revisar que version tiene la PC del error. ¿Puede ser también una causa?