Macro que copie determinados datos si cumple con dicha condición.

En la hoja1 tengo una matriz, en la columna "D" a partir de determinada celda tengo valores que van de 0 en adelante, si el valor de "H" es mayor que cero, entonces copia "A", "B", "C", "D" y el dato que esta en la fila "3", "4" y "5", en la hoja2 de tal manera quede una tabla tipo base de datos.

El proceso lo debe seguir haciendo hasta que haciendolo hasta que en no haya dato en la fila "3".