Sorting Columns into Tables

[paulked]

Hi there.

I'm sending myself loopy with loops!

What is the best way to get from this
Data.jpg to this Teams.jpg?

Any help would be much appreciated.

PS There are 16 teams with up to 14 players per team!

Thanks

Paul Ked

[paulked]

Update:

I've managed to extract the team names with

    Set d = CreateObject("scripting.dictionary")
    For Each c In Range("AD:AD")
        tmp = Trim(c.Value)
        If Len(tmp) > 0 Then d(tmp) = d(tmp) + 1
    Next c
    i = 0
    For Each k In d.Keys
        tm(i) = k
        i = i + 1
    Next k

But it is very slow.

Still struggling on the rest of it!

[paulked]

I sorted it, kind of! I used a separate loop for each team... Very messy but successful

Thanks to anyone who looked.