Buscar datos y pegar según valor de una celda

Hola a todos espero me puedan ayudar con mi problema por favor gracias

En la hoja 1 tengo datos acerca de productos, el año y sus características con una macro hago la búsqueda del producto y lo pego en la hoja 2 me gustaría a la hora que se pegue el resultado que si su valor es 2013 lo pegue en B2 y si su valor es 2014 lo pegue en B3

Ejemplo de datos en la hoja1:

B C D

Producto Año Color

goma 2013 azul se pega en B2 en la hoja2

goma 2014 rojo se pega en B3 en la hoja2

Private Sub CommandButton1_Click()
Sheets("hoja2").UsedRange.ClearContents
Dim uf As Long, TextBox1 As String, repetidos As Long
With Application
.ScreenUpdating = False
uf = Range("B" & Rows.Count).End(xlUp).Row
For x = 2 To uf
With Sheets("hoja2")
If nombre = Range("B" & x) Then repetidos = repetidos + 1: _
Range(Cells(x, "B"), Cells(x, "O")).Copy .Range("B" & Rows.Count).End(xlUp)(2)
End With
Next
With Sheets("hoja2")
Sheets("hoja1").Range("B2:O2").Copy .Range("B1")
.Activate
With ActiveWindow
.ScrollColumn = 1: .ScrollRow = 1
End With
Range("A1").Select
.Columns("B:O").AutoFit
End With
Unload Me
.ScreenUpdating = True
If repetidos = 0 Then _
MsgBox "No existen registros con ese nombre", vbExclamation, "Información": Exit Sub
End With
End Sub


Gracias espero me puedan ayudar

Añade tu respuesta

Haz clic para o