Macro to transpose data into new row on a different sheet?

Hello!

I've been struggling all day with this, being very new to VBA. Could someone please look at my code and tell me where I'm going wrong?

I'm trying to re-engineer the data collection system at work, where data is collected into a generic table in A and accumulates in B, ordered by date (where the table in sheet A is cleared every day). I've gotten as far as the code below, which does what I want except it puts it right at the bottom of the sheet (row 1048576). I don't know how to implement "transpose data into the next empty row".

Worksheets("dbh").Range("O7:O33").Copy

  Worksheets("cbh").Range("A" & Rows.Count).PasteSpecial Paste:=xlPasteValues, Transpose:=True

  Application.CutCopyMode = False

Thank you for any and all help!