Necesito el código Visual Basic para sumar y dividir dadas ciertas condiciones

QUE SE BUSCA:
Cada vez que en la columna D haya un "1", sumara los valores de la columna
"QUE", el resultado de dicha suma lo dividirá entre 20 y el resultado de la división lo colocara en la columna "I" en la misma fila donde se encontró el "1", ejemplo: en la celda D8 hay un uno, entonces sumar de la celda K9 a la K18, el resultado dividirlo entre 20 y el resultado de la división colocarlo en la celda I8, entonces busca el siguiente uno que se localiza en la celda D19 suma de la celda K20 a la K23, el resultado dividirlo entre 20 y el resultado de la división colocarlo en la celda I19, entonces busca el siguiente uno ..... Esto lo realizar hasta que en la columna B no haya datos