Como recorrer celdas ocultas de este código

Tengo el siguiente código que me sirve para recorrer celdas el cual me apoyo Dante Amor pero ahora me enfrento a que requiero ocultar algunas filas de donde están parte de estos datos el problema es que al llegar a la primer fila oculta se termina de ejecutar el código

Puedo poner la lista en otra hoja pero no se como hacer la orden para que me pase cada uno de los datos a una de las celdas de caratula cabe destacar que el dato de nombre ahora lo ocupo para filtrar datos y de ahí mando a imprimir por eso es que se ocultan las filas

Sub Macro1()
'Act. Por Dante Amor
' Macro1 Macro
' imprime cada uno de las hojas por lider
'
    '
    For Each nombre In Range("$P$5:$P$12")
        Range("C48").Value = nombre.Value
        ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    Next
    MsgBox "fin de las impresiones"
End Sub