Transferir datos entre dos libros. Para LuisMondelo

Hola Luis,

Me gustaría pedirte ayuda, a ver si me puedes ayudar.

Tengo el Excel 2010.

Me gustaría copiar datos de un libro origen(que se actualiza semanalmente) a otro libro destino, que tiene macros.

En el libro origen no tengo ningún tipo de botón ni nada. Solamente los nuevos productos que se van añadiendo. En el libro destino, tengo varios botones. Y en la columna a, tengo checkbok. Que empieza en la fila 6, cuando empiezan los productos hasta....que finalices los productos.

Ya tengo una macro, lo que pasa que me copia los productos al final de cada fila. ¿Podrías ayudarme a modificar la macro para que copie lso nuevos productos en la misma posición que en el origen y no al final, como lo hace ahora?

Y para que las columnas de la J a la M, de todas las filas me la copie siempre ya que son los precios y estos varían.

La macro que tengo es la siguiente:

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim Res As Variant
Dim producto As Variant
Workbooks("origen.xls").Activate
ufilaorigen = Range("B65536").End(xlUp).Row
Workbooks("Ejemplo.xls").Activate
ufiladestino = Range("C65536").End(xlUp).Row
j = 1
For i = 6 To ufilaorigen
Workbooks("origen.xls").Activate
ActiveSheet.Cells(i, 2).Select
producto = ActiveCell
Set RangoObj = Workbooks("Ejemplo.xls").Sheets(1).Range("C6:C65536").Find(producto, LookIn:=xlValues, lookat:=xlWhole)
If RangoObj Is Nothing Then
' El producto no lo encontró y lo copia en destino
ActiveSheet.Range("A" & i & ":P" & i).Copy
Workbooks("Ejemplo.xls").Activate
ActiveSheet.Cells(ufiladestino + j, 2).Select
ActiveSheet.Paste
j = j + 1
End If
Next
MsgBox ("Actualización Terminada, Se copiaron: " & j - 1 & " Productos")
Application.ScreenUpdating = True
End Sub