Código de Visual Basic para Aplicaciones - Calculo las estadisticas de una materia

Hoja de calculo que calcula las notas finales de una materia sumando cuatro notas de un 25% para totalizar el 100%, después ese 100% lo lleva a una escala del 1 hasta 20, luego en la celda W79 de Hoja1 cuenta el numero de aprobados y en la celda X79 de hoja1 muestra el porcentaje que equivale N° de aprobados, lo mismo hace con los reprobados en las celdas W80 y X80 de hoja1 respectivamente, luego totaliza el numero de aprobados y reprobados.