Macro que copia registros de 2 filas a 1 fila de otra hoja
Quiero hacer una macro que copie los registros de 2 filas diferentes aúna única fila en otra hoja, actualmente hago con una fila esta macro:
Sub Guardar_Luminaria()
' Añade una nueva Luminaria en la hoja BD Inventario
Range("A3:J3").Copy
u = Sheets("BD Inventario").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("BD Inventario").Range("A" & u).PasteSpecial Paste:=xlPasteValues
Range("A3:F3").ClearContents
End Sub
Si repito esta macro con las columnas de la otra fila, me las copia en la otra hoja inmediatamente debajo de los datos copiados del rango A3:J3, la nueva macro es:
Sub Guardar_Luminaria()
Range("A3:J3").Copy
u = Sheets("BD Inventario").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("BD Inventario").Range("A" & u).PasteSpecial Paste:=xlPasteValues
Range("A3:F3").ClearContents
Range("A6:J6").Copy
u = Sheets("BD Inventario").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("BD Inventario").Range("A" & u).PasteSpecial Paste:=xlPasteValues
Range("A6:F6").ClearContents
End Sub
El resultado es que copia el rango A3:F3 en la fila por ejemplo 1 y copia el rango A6:J6 en la fila 2, lo que quiero es que copie en la fila 1 el rango A3:J3 y a continuación a partir de la columna K el rango A6:J6
Muchas gracias