Quiero hacer una macro que copie registros de una hoja a otra

Hola, Esta macro sí me copia ahora la segunda fila que necesito, sin embargo copia en dos filas distintas y me gustaría que todos los datos los copiase en una sola fila.

Sub Guardar_Luminaria()
' Guardar_Luminaria Macro
' Añade una nueva Luimnaria 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
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

Muchas gracias.