una consulta  tengo unos datos que quiero buscar y mortrar en otra tabla, pero al momento de seleccionar el numero a buscar me sale descuadrado , si pueden ayudarme a ver el error , se los agradecería  y si se puede cargar una imagen ,tambien 

    introducir el código aquí
     Sub Buscador()
        Dim valor_Buscado As Integer

        Dim celda As String
        Dim celda1 As String
        Dim celda2 As String
        Dim celda3 As String
        Dim celda4 As String


        valor_Buscado = Range("a3").Value

        celda = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
        Range("B3") = celda

        celda1 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 3, 0)
        Range("B4") = celda1

        celda2 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 4, 0)
        Range("B5") = celda2

        celda3 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
        Range("B6") = celda3

       celda4 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 6, 0)
       Range("B7") = celda4

      End Sub

[![introducir la descripción de la imagen aquí][1]][1]


quiero que aparesca en esta hoja y estos campos
[![introducir la descripción de la imagen aquí][2]][2]


  [1]: https://i.sstatic.net/KfWL0.png
  [2]: https://i.sstatic.net/5v5If.png
 
pero como pueden ver no me sale correctamente