Ingresar datos de un libro a otro

[FERREÑO]

Tengo ésta Macro que copié de un aporte del Maestro Ioyama,la estoy adaptado un poco a mis necesidades, pero ahora veo que necesito algo más,como podría ingresar desde un libro a otro dos filas, una fila a una tablahoja1 y otra a otra tabla hoja2, las filas del libro de partida serían siemprelas mismas, osea que serían siempre los mismos rangos que se transferirían, nocomo en la macro adjunta que se selecciona la fila a transferir.

Salud_2

Sub INGRESAR_DATOS()

Application.ScreenUpdating = False

ruta = ActiveWorkbook.Path

fila = ActiveCell.Row

cod = Range("C" & fila)

Range("A" & fila & ":X" & fila).Copy

Workbooks.Open Filename:=ruta & "\ReceptorDeDatos.xls"

Sheets("HOJA3").Select

On Error Resume Next

fila2 = Application.WorksheetFunction.Match(cod, Columns("C:C"), 0)

If fila2 = "" Then

uf = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1

Range("A" & uf).PasteSpecial Paste:=xlValues

Else

Range("A" & fila2).PasteSpecial Paste:=xlValues

End If

ActiveWindow.Close (1)

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

[cexarto]

Hola , quizas el codigo que escribi en este tema te pueda ayudar. En el codigo estan especificados los nombres de los libros y de las hojas entre las que se intercambian los datos :

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/macro-para-guardar-filas-otro-excel-segun-condicion-25940/

Me avisas si puedes solucionarlo

Saludos