Error 2147417848(80010108) en excel 2013

Tengo un problema con una código en vba que no logro resolver. El código pertenece a un formulario. Tengo uno prácticamente igual en otro formulario -que trabaja con otra tabla -y anda bien, pero con este no hay caso.

El código es el que pego a continuación. Algunas veces el error aparece en la primer línea marcada, y otras llega ubicar el primer valor en la tabla, pero no llega al segundo.

El error que marca es el " '-2147417848(80010108)'. Se ha perdido la conexión con la biblioteca de tipos o con la biblioteca de objetos para procesos remotos". Es un archivo de excel 2013, ubicado en una carpeta de mi PC, no tiene nada raro, recién lo estoy empezando desarrollar. Luego de saltar el error, excel se cierra y se reinicia.

Private Sub cmdAceptar_Click()
Application.ScreenUpdating = False

'Opción 1

If Me.optTransportista = True Then
If Me.txtRazonSocial = "" Then MsgBox "La Razón Social no puede estar vacía", vbOKOnly, "TRANSPORTE": Exit Sub
If Not Sheets("DatosTransportistas").Range("T_Transportista[TRANSPORTISTA]").Find(WHAT:=Me.txtRazonSocial) Is Nothing Then _
MsgBox "La Razón social ya existe", vbOKOnly, "TRANSPORTE": Exit Sub
If Sheets("DatosTransportistas").Range("T_Transportista[TRANSPORTISTA]").Find(WHAT:=Me.txtRazonSocial) Is Nothing Then
Sheets("DatosTransportistas").Activate
If Trim(Range("B3").Value) = "" Then
Range("B3").Activate
Else
Range("B2").End(xlDown)(xlDropDown).Activate
End If
Sheets("DatosTransportistas").Visible = True
Sheets("DatosTransportistas").Activate
ActiveCell.Offset(0, 0).Value = Me.txtRazonSocial
ActiveCell.Offset(0, 1).Value = Val(Me.txtCUIT)
ActiveCell.Offset(0, 2).Value = Me.txtTel
ActiveCell.Offset(0, 3).Value = Me.txtDomicilio
ActiveCell.Offset(0, 4).Value = Me.txtLocalidad
ActiveCell.Offset(0, 5).Value = Me.txtPcia
'ordenar
Sheets("DatosTransportistas").Activate
Range("T_Transportista").Select
ActiveWorkbook.Worksheets("DatosTransportistas").ListObjects("T_Transportista").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("DatosTransportistas").ListObjects("T_Transportista").Sort.SortFields. _
Add Key:=Range("T_Transportista[TRANSPORTISTA]"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("DatosTransportistas").ListObjects("T_Transportista").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("DatosTransportistas").Activate
Range("A1").Activate
MsgBox "El Transportista " & Me.txtRazonSocial & " se agregó correctamente", vbOKOnly, "TRANSPORTE"
Me.txtRazonSocial = ""
Me.txtCUIT = ""
Me.txtDomicilio = ""
Me.txtLocalidad = ""
Me.txtPcia = ""
Me.txtTel = ""
Sheets("DatosTransportistas").Visible = xlVeryHidden
End If
Sheets("Inicio").Activate
End If

'Opción 2

If Me.optChofer = True Then
If Me.txtChofer = "" Then MsgBox "El Chófer no puede estar vacío", vbOKOnly, "TRANSPORTE": Exit Sub
If Me.cmbTransportista <> "" Then If Me.cmbTransportista.ListIndex = -1 Then MsgBox "Debe seleccionar un elemento de la lista", vbOKOnly, "TRANSPORTE": Exit Sub
If Not Sheets("DatosTransportes").Range("T_DatosTransporte[CHÓFER]").Find(WHAT:=Me.txtChofer) Is Nothing Then _
MsgBox "El Chófer ya existe", vbOKOnly, "TRANSPORTE": Exit Sub
If Sheets("DatosTransportes").Range("T_DatosTransporte[CHÓFER]").Find(WHAT:=Me.txtChofer) Is Nothing Then
Sheets("DatosTransportes").Visible = True
Sheets("DatosTransportes").Activate
If Trim(Range("B3").Value) = "" Then
Range("B3").Activate
Else
Range("B2").End(xlDown)(xlDropDown).Activate
End If
Sheets("DatosTransportes").Visible = True
Sheets("DatosTransportes").Activate
ActiveCell.Offset(0, 0).Value = Me.txtChofer
ActiveCell.Offset(0, 1).Value = Val(Me.txtCUITCUIL)
ActiveCell.Offset(0, 2).Value = Me.cmbTransportista
ActiveCell.Offset(0, 3).Value = Me.txtCamion
ActiveCell.Offset(0, 4).Value = Me.txtAcoplado
ActiveCell.Offset(0, 5).Value = Me.txtTelChofer
'ordenar
Sheets("DatosTransportes").Activate
Range("T_DatosTransporte").Select
ActiveWorkbook.Worksheets("DatosTransportes").ListObjects("T_DatosTransporte").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("DatosTransportes").ListObjects("T_DatosTransporte").Sort.SortFields. _
Add Key:=Range("T_DatosTransporte[CHÓFER]"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("DatosTransportes").ListObjects("T_DatosTransporte").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("DatosTransportes").Activate
Range("A1").Activate
MsgBox "El Chófer " & Me.txtChofer & " se agregó correctamente", vbOKOnly, "TRANSPORTE"
Me.txtChofer = ""
Me.txtCUITCUIL = ""
Me.cmbTransportista = ""
Me.txtCamion = ""
Me.txtAcoplado = ""
Me.txtTelChofer = ""
Sheets("DatosTransportes").Visible = xlVeryHidden
End If
Sheets("Inicio").Activate
End If
Application.ScreenUpdating = True
End Sub

Es pero puedas ayudarme ya que estoy realmente perdida esta vez.

Desde ya te agradezco. Te mandaría una copia del archivo pero no encuentro como subirlo.