Imprimir en un formato único, información de varias hojas

Se debe a que la hoja en la que estás intentando establecer un valor en la celda C9 no está activa en ese momento. Puedes solucionar este problema utilizando el método Activate antes de asignar el valor a la celda. Aquí está la línea modificada que puedes usar:

Corregido el código:

Sub IMPRIMECTAPDF()
    Dim wsDesprendible As Worksheet
    Dim wsDatos As Worksheet
    Dim r As Long
    Dim n As Long
    Application.ScreenUpdating = False
    ' Desproteger la hoja Desprendible
    Set wsDesprendible = ThisWorkbook.Sheets("Hoja13")
    wsDesprendible.Visible = xlSheetVisible
    wsDesprendible.Unprotect "1717171"
    ' Recorrer las hojas
    For Each wsDatos In ThisWorkbook.Sheets
        ' Excluir las hojas "DATOS" y "POBLACION"
        If wsDatos.Name <> "DATOS" And wsDatos.Name <> "POBLACION" Then
            ' Contar el número de celdas con datos en la columna B de la hoja actual
            n = wsDatos.Range("B7:B56").Cells.SpecialCells(xlCellTypeConstants).Count
            ' Verificar si hay datos en la columna B
            If n > 0 Then
                ' Recorrer los ID en la columna B de la hoja actual
                For r = 7 To (n + 6)
                    If Not wsDatos.ProtectContents Then
                        wsDatos.Activate
                        wsDesprendible.Range("C9").Value = wsDatos.Range("B" & r).Value
                        Calculate
                        ' Mostrar las filas ocultas
                        wsDesprendible.Rows("15:264").EntireRow.Hidden = False
                        ' Ocultar filas vacías o en ceros
                        Dim Rg As Range
                        For Each Rg In wsDesprendible.Range("I16:I255")
                            If Rg.Value = "" Or Rg.Value = 0 Then
                                Rg.EntireRow.Hidden = True
                            Else
                                Rg.EntireRow.Hidden = False
                            End If
                        Next Rg
                        ' Imprimir el formato
                        Call ImprimirCta
                        DoEvents
                    End If
                Next r
            End If
        End If
    Next wsDatos
    ' Volver a proteger la hoja Desprendible
    wsDesprendible.Protect "1717171"
    Application.ScreenUpdating = True
    MsgBox "Impresión finalizada", vbInformation
End Sub

Al activar la hoja "wsDatos" antes de establecer el valor en la celda C9 de la hoja "wsDesprendible", te aseguras de que estás tomando la información de la hoja correcta.

Además, te sugiero agregar una verificación adicional para asegurarte de que la hoja "wsDatos" no esté protegida antes de intentar establecer el valor. Puedes usar la propiedad "ProtectContents" para realizar esta verificación.

Muchas gracias por la respuesta, he revisado los videos que me sugiere, pero no es lo que necesito, la alimentación de los campos del formato la tengo solucionada, solo que lo he logrado con información de una sola hoja, y es precisamente el inconveniente que poseo, que no se como hacer para que a la celda C9 de la Hoja13 que es la hoja donde esta el formato, se vaya pasando uno a uno de los Id contenidos en la columna B de cada uno de las demás hojas, para eso utilizo este código:

n = Application.WorksheetFunction.CountA(Sheets("CAE").Range("B7:B56"))
If n = 0 Then Exit Sub
For r = 7 To (n + 1)
Hoja13.Range("C9") = Sheets("CAE").Range("B" & r)

En este caso CAE es el nombre de la hoja, por eso solo trabaja en esa hoja, lo que necesito es lograr que cuando termine de procesar la información de la hoja CAE, pase a la hoja CIP y haga lo mismo, cuando termine de procesar la información de esa hoja pase a la siguiente y haga lo mismo y así sucesivamente hasta que recorra todas las hojas del archivo.