Macro para corregir suma en un archivo nuevo de pdf y excel

Un gusto en saludarte Dante Amor, estoy tratando de hacerte una pregunta en todoexpertos pero no me deja la realizó y no se visualiza

Hay un archivo que apoyaste en crear las macros para generar un nuevo archivo en pdf y excel

Te comento como esta el asunto hay un botón que genera un nuevo archivo en excel y pdf donde unifica varias hojas del libro y las convierte en excel y pdf valga la redundancia, el detalle es de que en una sumatoria de una hoja cuando crea los nuevos archivos da error en la sumatoria y dice Ref! Algo así, el error se da cuando no hay un monto en algunas de las celdas que debe sumar, por ejemplo son dos columnas la C y la DE, la sumatoria está en la celda C5 esta suma las celdas C9, C110, C119 y C125 lo mismo es para la columna DE, la sumatoria está en la celda D5 esta suma las celdas D9, D110, D119 y D125, entonces cuando no hay valor en alguna de estas celdas y se genera el nuevo archivo en los dos formatos dicho anteriormente da el error de ref!, pero si las demás celdas tienen valor si genera bien la sumatoria en el nuevo archivo, es decir que el inconveniente es unicamente cuando alguna de ellas no tiene valor, para lo cual en su momento creaste el siguiente código a la persona que veía esto.

También hay otros botones donde solo genera en excel y otro que solo genera en pdf, pero los tres botones tiene el mismo problema de cuando se genera el nuevo archivo, el archivo se genera después que se le da la orden de ocultar filas para que solo queden aquellas que tiene valor mayor a cero de las columnas C y D

Sub Crear_pdf_11()
  Dim wb2 As Workbook
  Dim sh2 As Worksheet
  Dim Nombre As String
  '
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Application.CopyObjectsWithCells = True
  '
  Sheets.Copy
  Set wb2 = ActiveWorkbook
  For Each sh2 In wb2.Sheets
    Select Case sh2.Name
      Case "Análisis de Créditos"
        Call valores(sh2, "B7:K")
      Case "Análisis de Débitos"
        Call valores(sh2, "A7:H")
      Case "Junta Directiva (Imprimir)"
        Call valores(sh2, "A4:D")
         Case "Impresion"
        Call valores(sh2, "A4:I")
    End Select
  Next
  '
  For Each sh2 In wb2.Sheets
    Select Case sh2.Name
      Case "Análisis de Créditos"
        Call eliminar(sh2, "L1:Z", "J")
      Case "Análisis de Débitos"
        Call eliminar(sh2, "I1:Z", "G")
      Case "Junta Directiva (Imprimir)"
        Call eliminar(sh2, "E1:Z", "D")
       Case "Impresion"
      Case Else
        sh2.Delete
    End Select
  Next
  '
  Nombre = ThisWorkbook.Path & "\" & "Transferencia Interna DROR"
  wb2.SaveAs Nombre & ".xlsx", xlOpenXMLWorkbook
  wb2.ExportAsFixedFormat xlTypePDF, Nombre & ".pdf"
  wb2.Close False
  Application.CopyObjectsWithCells = True
  MsgBox "Transferencia guardada en un nuevo archivo PDF y Excel"
End Sub
'
Sub eliminar(sh2 As Worksheet, rango As String, col As String)
  Dim i As Long
  sh2.Range(rango & sh2.UsedRange.Rows(sh2.UsedRange.Rows.Count).Row).EntireColumn.Delete
  For i = sh2.Range(col & Rows.Count).End(3).Row To 8 Step -1
    If sh2.Rows(i).Hidden = True Then sh2.Rows(i).Delete
  Next
End Sub
'
Sub valores(sh2 As Worksheet, rango As String)
  sh2.Unprotect "regional2018"
  With sh2.Range("B7:K" & sh2.UsedRange.Rows(sh2.UsedRange.Rows.Count).Row)
    .Value = .Value
  End With
End Sub

Es la primera imagen es como esta el archivo y se solicita que se genere el nuevo, si se dan cuenta hace las sumas, el error es cuando genera el nuevo archivo adjunto

Ya da el problema de la suma en la hoja de junta directiva imprimir en la suma da el error de #ref! Y así mismo genera el archivo de pdf y cuando tiene valores en todas las celdas que se mencionan arribasi funciona la suma, adjunto otra imagen