Por lo que entiendo, la búsquedas te las realiza de forma correcta, y es la hora de pegar el valor de las variables en las celdas
Y utilizas para pegar los valores de esas variables, siempre la misma columna B, por lo que los valores te los va pegando en B3, B4, B5,B6 Para que te las vaya colocando en las diferentes columnas, deberias de cambiar el valor de las mismas: B3, C3, D,3, E3
celda = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
'Te pega en contenido de la variable celda en B3
Range("B3") = celda
celda1 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 3, 0)
'Te pega el contenido de la variable celda1 en B4, no debería de ser C3 ?
Range("C3") = celda1