Automatically adding names to list

Will you please attach a sample Excel workbook? We are not able to work with or manipulate a picture of one and nobody wants to have to recreate your data from scratch.

1. Make sure that your sample data are REPRESENTATIVE of your real data. The use of unrepresentative data is very frustrating and can lead to long delays in reaching a solution.

2. Make sure that your desired results are also shown (mock up the results manually).

3. Make sure that all confidential data is removed or replaced with dummy data first (e.g. names, addresses, E-mails, etc.).

4. Try to avoid using merged cells as they cause lots of problems.

Unfortunately the attachment icon doesn't work at the moment, so to attach an Excel file you have to do the following: just before posting, scroll down to Go Advanced and then scroll down to Manage Attachments. Now follow the instructions at the top of that screen.

Please pay particular attention to point 2 (above): without an idea of your intended outcomes, it is often very difficult to offer appropriate advice.

Blurry pictures aren't any use.

Will you please attach a SMALL sample Excel workbook (10-20 rows of data is usually enough)? Please don't attach a picture of one (no-one will want to re-type all your stuff before starting).

1. Make sure that your sample data are truly REPRESENTATIVE of your real data. The use of unrepresentative data is very frustrating and can lead to long delays in reaching a solution.

2. Make sure that your desired solution is also shown (mock up the results manually).

3. Make sure that all confidential information is removed first!!

4. Try to avoid using merged cells. They cause lots of problems!

Unfortunately the attachment icon doesn't work at the moment. So, to attach an Excel file you have to do the following: Just before posting, scroll down to Go Advanced and then scroll down to Manage Attachments. Now follow the instructions at the top of that screen.

This is just straight forward.
It compares year 2016 column on sheet year sort with names on players annual and adds names that are missing.

Sub tst()
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("Players-annual scores")
        sn = .Range("B3", .Range("B" & .Rows.Count).End(xlUp))
    End With
    For i = 1 To UBound(sn)
        x0 = dic.Item(sn(i, 1))
    Next
    With Sheets("YearSort")
        sn2 = .Range("AF4", .Range("AF" & .Rows.Count).End(xlUp))
    End With
    For i = 1 To UBound(sn2)
        If Not dic.exists(sn2(i, 1)) Then
            With Sheets("Players-annual scores")
                .Range("B" & .Rows.Count).End(xlUp).Offset(1).EntireRow.Insert
                .Range("B" & .Rows.Count).End(xlUp).Offset(1) = sn2(i, 1)
            End With
        End If
    Next
End Sub

This one will give you a sorted list of all unique names on yearsort and put result on players annual column W.
The only thing you have to do is copy and paste result in Column B ofplayers annual.

Sub test()
    Dim e, numcol As Long
    With CreateObject("System.Collections.ArrayList")
        numcol = Sheets("YearSort").UsedRange.Columns.Count
        For i = 2 To numcol Step 3
            For Each e In Sheets("YearSort").Columns(i).Value
                If e <> "" Then
                    If Not IsNumeric(e) Then
                        If Not .Contains(e) Then .Add e
                    End If
                End If
            Next
        Next
        .Sort
        Sheets("Players-annual scores").Columns(23).ClearContents
        Sheets("Players-annual scores").Range("W4").Resize(.Count).Value = Application.Transpose(.ToArray)
    End With
End Sub