Copy paste special transpose VBA

[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

 

[Fluff]

How about

Sub chef()
   With Sheets("Trend").Range("D" & Rows.Count).End(xlUp).Offset(1)
      .Resize(, 11).Value = Application.Transpose(Sheets("Pay").Range("J2:J12").Value)
   End With
End Sub

 

[chef]

wow!!!
You made that so simple and effective.

Works a dream and thank you so much for doing this and with quick response.
Really appreciate.

 

[Fluff]

You're welcome & thanks for the feedback.