List of options in an autofilter

hey everyone.

I hope you can help me, I've been all over google trying to find an answer for this. I've fairly new to VBA so please forgive my lack of skill.

My issue (i believe) has sound logic, I just can't figure out how to program it in VBA. Here goes...

I have a table in a tab. I can set an autofilter, it's great. The table has stats for different colleagues.

[TABLE="width: 500"]

MANAGER

COLLEAGUE

SKILL

MANAGER1

COLLEAGUE1

467

MANAGER1

COLLEAGUE1

467

MANAGER1

COLLEAGUE2

467

MANAGER1

COLLEAGUE2

467

MANAGER1

COLLEAGUE2

467

MANAGER2

COLLEAGUE3

467

MANAGER2

COLLEAGUE3

467

MANAGER2

COLLEAGUE3

467

MANAGER2

COLLEAGUE4

467

[/TABLE]

Now on another tab, I have a row. B10 all the way to M10. What I'd like to do is list each person in the table. So when I click on the Autofilter, it allows me to select which colleague I'd like to filter (colleague 1, colleague 2 etc).
[TABLE="width: 800"]

[TD="align: center"][/TD]
[TD="align: center"]A[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]C[/TD]
[TD="align: center"]D[/TD]
[TD="align: center"]E[/TD]
[TD="align: center"]F[/TD]
[TD="align: center"]G[/TD]

9

10

Colleague1

Colleague2

Colleague3

Colleague4

Colleague5

Colleague6

11

12

[/TABLE]

What i'd like is EACH colleague's name to be populated into the B row. So in B10 you'd have "Colleague1", and in C10 you'd have "Colleague2". All the way until the list of colleagues is exhausted.

Would anyone be kind enough to help me with this? Much appreciated in advance.

Dan

Re: List of options in an autofilter

I did it, thanks! Feels great. here's the code, fyi.

Public Sub Dan1()




    Dim coll As String
    coll = ""
    
    Worksheets(4).Select
    Range("H13").Select
    
    Do While ActiveCell.Value <> ""
        
        If ActiveCell.Value <> coll Then
            ActiveCell.Copy
            Worksheets(1).Select
            Range("GS9").Select
            Range(Selection, Selection.End(xlToLeft)).Select
            ActiveCell.Offset(0, 1).Select
            ActiveCell.PasteSpecial
            Worksheets(4).Select
            coll = ActiveCell.Value
            
            
            End If
            
        
        
        ActiveCell.Offset(1, 0).Select
    
    
    
    Loop