Entra al Editor de macros (con atajo ALT+F11)
Inserta un módulo y allí copia el siguiente código:
Sub diasLab()
'x Elsamatilde
'recorre col A de hoja activa hasta celda sin dato
'fila inicio y fin
x = 2: y = Range("A" & Rows.Count).End(xlUp).Row
'guarda datos del 1er doc
doc = [A2]: ini = [C2]
'recorre el rango
For i = x To y
'si se trata de otro doc calcula la dif
If Range("A" & i) <> doc Then
'guarda fecha del último reg de = doc
fini = Range("E" & i - 1)
dif = Application.WorksheetFunction.NetworkDays(ini, fini)
Range("G" & i - 1) = dif
'guarda datos del nuevo regisro
doc = Range("A" & i): ini = Range("C" & i)
End If
Next i
'coloca último resultado
fini = Range("E" & i - 1)
dif = Application.WorksheetFunction.NetworkDays(ini, fini)
Range("G" & i - 1) = dif
MsgBox "Fin del cálculo"
End Sub
Se puede ejecutar desde el mismo Editor o desde la hoja menú Desarrollador, o con un botón , etc. Este tema lo tengo explicado en la sección MACROS de mi sitio que dejo al pie.
Se trabaja en la hoja activa.
Sdos y no olvides valorar la respuesta si el tema queda resuelto. Sino solicita aclaraciones.