Macro to copy and paste special transpose that repeats after each blank row

[sneaky911]

I have two columns of data (grouped into 9 row chunks with a blank row separating each chunk) I would like to copy each chunk of data in column B and paste special transpose. I need to repeat this process after the blank row in column A (row 10, 20 etc. in this example) for each chunk. Number of total lines in report data will vary.

Original Data

Expected outcome

 

[jolivanes]

Sub Maybe()
Dim Area As Range
    For Each Area In Range("A1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Areas
        Cells(Rows.Count, 4).End(xlUp).Offset(1).Resize(, Area.Rows.Count).Value = Application.Transpose(Area.Offset(, 1).Value)
    Next
End Sub

 

[sneaky911]

I have two columns of data (grouped into 9 row chunks with a blank row separating each chunk) I would like to copy each chunk of data in column B and paste special transpose. I need to repeat this process after the blank row in column A (row 10, 20 etc. in this example) for each chunk. Number of total lines in report data will vary.

Original Data
View attachment 110782



Expected outcome
View attachment 110783

This works perfectly! Thank you.

 

[jolivanes]

Thanks for the update and good luck.
And remember for the next time, keep clutter at a minimum by not quoting unless absolutely needed.