VBA with copy & paste based on If want half of list in 1 row, other half 10 rows over

How would you change the following info to take the first 15 cells and paste to a different sheet starting at B15, then the next 15 cells starting at m15. Here is what I have and it works good, just to many cells for the one sheet.

Sub Macro2()
Dim LastRow As Long
With Sheets("Data")
LastRow = .UsedRange.Rows.Count
With .Range("I362:J" & LastRow) 'Note: autofilter considers the top row (362) is a header row
.AutoFilter Field:=1, Criteria1:="yes" 'Filter for yes in column I
.Offset(0, 1).Resize(, 1).Copy Destination:=Sheets("working").Range("B15")
End With
.AutoFilterMode = False
End With
End Sub
As always thank you.

Can someone please help me with this question? I am pulling my hair out trying to figure out how to post into different columns. Please help.