Crear una hoja y poner datos de una celda de cada hoja con condiciones

Quiero traer datos de una celda de varias hojas de un libro y colocarlo en otra hoja, tengo el siguiente código, quiero por ejemplo en otra hoja me guarde la variable dpto de cada hoja:

For Each myWS In ActiveWorkbook.Worksheets
celda = "" & myWS.Range("ZZ100")
dpto = myWS.Range("N9")
empleado = myWS.Range("N10")
Nombrefichero = "" & dpto & Chr(95) & empleado
ruta1 = ruta + "\" + Sheets("INDICE").Range("AÑO") + "\" + mes + Sheets("INDICE").Range("J4") + Chr(92) + "DETALLE HORAS" & Chr(92) & myWS.Range("AC6") + " DETALLE HORAS " & Sheets("INDICE").Range("J4") & Chr(95) & Nombrefichero & ".pdf"
If celda = "F" Then
If factura = "SI" Then
myWS.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta + "\" + Sheets("INDICE").Range("AÑO") + "\" + mes + Sheets("INDICE").Range("J4") + Chr(92) + "DETALLE HORAS" & Chr(92) & myWS.Range("AC6") + " DETALLE HORAS " & Sheets("INDICE").Range("J4") & Chr(95) & Nombrefichero & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End If
End If
Next myWS
Application.ScreenUpdating = True