First sort the data. You can record that and then add the code  to the top of
the Sub.

Alter the bottom part to go to the cell where you want the data output  to.
Otherwise, go to sheet 2 and copy paste the data to where you want it.

Range("a4").Select
For ilUBound = 0 To UBound(slSummary)
ActiveCell.Value = slSummary(ilUBound)
ActiveCell.Offset(1, 0).Select
Next ilUBound
Range("a1").Select

Also, are those items at the end... A B C... single items? That is should
they be seperate in the output? I've put commas between the items but that
can be easilly changed.

The line
slValue = slValue & slSplit(1) & ","
should also be altered to
slValue = slValue & slSplit(UBound(slSplt)) & ","
to take care of items like "New York".