Ayuda con Función demasiado extensa e insuficiente

Hola:

Como podrán ver sigo con mis preguntas.
Estoy bastante complicado con una función que no sé como aplicar y lo
necesito urgente para el trabajo.

Tengo la situación que se plantea debajo.

"G8" =SI(D8>F8;F8;D8)

"G9"
=SI(B9<>B8;SI(D9>F9;F9;D9);SI(Y(B9¸;D8>ø);0;SI(Y(B9¸;D8<F8;D9<(F8-D8))
;D9;SI(Y(B9¸;D8<F8;D9>(F8-D8));F8-D8))))

"G10"
=SI(B10<>B9;SI(D10>F10;F10;D10);SI(Y(B10¹;D9>ù);0;SI(Y(B10¹;B9¸;D9+D
8>ù);0;SI(Y(B10¹;B9¸;(D9+D8)<F10;D10<(F10-(D9+D8)));D10;SI(Y(B10¹;B9
¸;(D9+D8)<F10;D10>(F10-(D9+D8)));(F10-(D9+D8));SI(Y(B10¹;D9<F9;D10<(F9-D
9));D10;SI(Y(B10¹;D9<F9;D10>(F9-D9));F9-D9)))))))

Como verán, a medida que aumenta una fila, se agrega a la función lo
necesario para que si las celdas en la columna B son iguales me devuelva un
resultado determinado .
El problema es que necesito poder continuar esto hasta la celda "G30" pero
la fórmula será demasiado extensa y además no entrará.

Tal vez me puedan ayudar a resolver esta situación. Ya sea con una función o
con un macro.
Lo que más me serviría es el macro, pero ante la necesidad cualquier
solución me servirá.

Si se necesita alguna otra explicación les pido que me lo indiquen pues esto
es muy importante para mí.

Agradezco la ayuda.

Saludos,

Marcelo