VBA Help please - cut/paste special/transpose

[chef]

Hi,
I'm not that great with VBA but trying to piece together from learning on utube etc

I have a worksheet called "Pay" and and another worksheet called "Trend"

I want to copy figures and formats from "Pay" range J2:12 and then copy paste special them in the next available blank rows in "Trend" in columns D:N, but also transpose the column data in "pay" to rows in "Trend"

I've tried the following but I need to find the next blank row in "trend" and hoping this makes sense to someone.
Using O365

What I have tried but not gluing together nor fully understanding as Im not sure how to code the next available row into this

sub CopyData()
Worksheets("Pay").Range("J2:J12")
Selection.copy
Worksheets("Trend").Range(D29:N29.Select)
Selection.PasteSpecialPaste:=xlPasteValues,Transpose:=True
Application.CutCopyMode=False

End Sub

Can someone please give me a nudge in the right direction as I want to attach this to a button and just click to have updated automatically each week when the pay figures change

 

[chef]

my apologies for the duplicate thread - I did not think the first one was sent