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!

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I did it for you this time. Please read forum rules. Thanks

Administrative note
Please update your profile as necessary to properly reflect the exact version(s) of Excel your question relates to. Members tailor answers based on your Excel version. Your profile does not indicate your version.
Thanks