Macro Excel 2010, Como extraer datos de una base de datos

Como puedo armar una macro que me busque en una hoja con una referencia igual y me los traslade unos datos a otra hoja.
En Hoja 1 tengo en A1=100 , B1=D , A2=101 , B2=P , A3=102 , B3=D

Al usar la macro me copie desde A5 en la hoja 2 en forma correlativa todas las filas que sean igual a "D" en la columna B de la hoja1.

O dicho de otra forma, que me copie en forma correlativa en la hoja2, todo filtrado las que no son D.

ya lo hice pero busando 1 sola fila, y lo que necesito hacer es que de 100 me filtre y puedan quedar 10 y evitar los espacios y me lo comprima en forma correlativa

Gracias.