Thanks Robert, but I would like a macro to do it as part of another process.
This should do the trick then:

Option Explicit
Sub Macro1()
    
    Sheets("BOXES").Rows("1:6").Copy
    Sheets("Metadata").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    
End Sub
Robert