Borrar rango según condición

Buenas tardes Maestros, estoy intentando crear una macro, que además de borrar las lineas en blanco, según la condición de si celda vacia, además si dentro de un rango especifico, la colunna , en este caso la D, no contiene datos, me borre ese rango especifico. Lo he estado intentando, y no lo consigo. Todo esto, es para una hoja de datos, para realizar pedidos a proveedores.

Les adjunto archivo de ejemplo, por si pudieran ayudarme.

Ejemplo.xlsm