Visual Basic - Macro en excel

Hola. Estoy intentando ejecutar esta macro para que las celdas de una hoja (formulario_P) se copien en un rango de celdas de otra hoja del mismo libro, (BBDD_FRORM_P), pero no consigo que se copien de forma ordenada. Os paso el desarrollo

Sheets("formulario_P").Activate

Range("D15").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("BBDD_FORM_P").Activate

Range("D2").PasteSpecial xlPasteValues


Sheets("formulario_P").Activate

Range("D16").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("BBDD_FORM_P").Activate

Range("E2").PasteSpecial xlPasteValues


Sheets("formulario_P").Activate

Range("D17").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("BBDD_FORM_P").Activate

Range("F2").PasteSpecial xlPasteValues

¿Podéis ayudarme a detectar donde esta el fallo?. Tengo otras macros con la mismas directrices y no me dan este fallo. La macro se ejecuta pero los campos no se colocan donde se tienen que colocar en la hoja de destino.
Muchas gracias!!!.

Sube un libro y explica lo que quieres que haga la macro por que si funciona sabremos lo que hace y no lo que quieres que haga.
Por no se que entiendes por: "... pero no consigo que se copien de forma ordenada." y no se que estas copiando.

Saludos.
\\//_

Muchas gracias por la ayuda. Lo he solventando con formulas de excel en vez de a través de una macro.