Macro que borre filas hasta que encuentre un valor

Hola,

Necesito hacer una macro que se ubica en cells(1,1), y de ahí borre todas las filas que encuentre hasta encuentre una que dice "canal". Que guarde ese valor en una variable y siga borrando hasta que encuentre una celda que dice "producto".

Muchas gracias