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

Para guardar imágenes te pongo una función:
    

    Function inserta_foto()
        'seleccionamos la imagen a insertar y le damos un nombre
        SavePicture imagen_A_Insertar.Picture, "logo.jpg"
        'Selecciona la hoja1, y la imagen por el nombre almacenado anteriormente "logo.jpg"
        Worksheets(hoja1).Pictures.Insert("logo.jpg").Select
            'Aqui la formateamos para adaptarla al rango elegido
            Whit Selection.ShapeRange
                .LockAspectRatio = msoFalse
                .Top = Range("B48:C50").Top + 1
                .Left = Range("B48:C50").Left + 2
                .Width = Range("B48:C50").Whidt - 5
                .Height = Range("B48:C50").Heoght - 5
            End With
        End Function