Transpose or flatten out cell data

Reaching out for some help. Trying to write a function or expression (prefer VBA function) for flattening out on a row starting on Column L. I’m not too bad with VBA and I’ve wrote several functions for this but cannot get the logic correct in code. If Column I6 has a value and blanks underneath then user (Col J) needs to flatten (transpose users) out on the row until the next RW.NAME. So in the attached pic the users would start populating on L out 5 columns. After I would drag the function down I would then cleanup and delete rows 6 – 10. I also tried an expression using an array w/ TRANSPOSE but didn’t get that to work either.
Quite frustrated. Would appreciate any help or ideas. See pic for example.
Using Excel 2013 32 bit.


Thanks
Bryan Karsten
ExcelTranspose.png