Print report from Listbox

[Jacob Hilderbrand]

You can create a loop to re-arrange the data. Now do you want to put the data for each company on its own row?

LastRow = Range("A65536").End(xlUp).Row
Row = 2
For i = 1 To LastRow Step 6
    Range("C" & Row).Value = Range("B" & i).Text
    Range("D" & Row).Value = Range("B" & i + 1).Text
    Range("E" & Row).Value = Range("B" & i + 2).Text
    Range("F" & Row).Value = Range("B" & i + 3).Text
    Range("G" & Row).Value = Range("B" & i + 4).Text
    Row = Row + 1
Next i