Copiar celdas en Base a un Rango Dinámico

Soy algo novato con la programación de VBA para excel y no se si me puedan ayudar con una 2 problemas que tengo en el cual en una debo de copiar unas celdas de la columna "a" en base a una condición de otra columna "B" en la cual si en la columna b encuentra un valor debe copiarme desde un rango inicial "a2" de la columna a hasta el numero de fila donde encontró el valor de la columna "B", luego debe bajar hasta encontrar el otra celda con valor y debe copiar desde una celda abajo de la ultima fila que copia hasta la nueva fila que nace por encontrar el nuevo valor.

El segundo caso es el similar solo que en este debe empezar de arriba haca abajo osea que encuentra primero el valor de la columna (B) y debe bajar hasta encontrar un valor y por consiguiente debe copiar desde donde encontró el primer valor hasta una fila antes del nuevo valor encontrado.