VBA counting number of occurrences in a list of strings

Question

I have a list of 1000+ names in a single column in excel where the names repeat occasionally. I am trying to count how many times each name occurs. This is what I have currently and it populates the desired sheet but it seems to mess up when counting the number of times the names show up. Anything helps!

m = 2
n = 1

    person = Worksheets("Sheet1").Cells(m, 6).Value
    Worksheets("Sorted_Data").Cells(n, 2).Value = person
    Worksheets("Sorted_Data").Cells(n, 3).Value = 1
    n = n + 1
    m = m + 1
    
    For i = 0 To Total_Tickets
        person = Worksheets("Sheet1").Cells(m, 6).Value
        y = 1
        d = 0
        Do While d <= i
            comp = Worksheets("Sorted_Data").Cells(y, 2).Value
            x = StrComp(person, comp, vbTextCompare)
            If x = 0 Then
                Worksheets("Sorted_Data").Cells(n - 1, 3).Value = Worksheets("Sorted_Data").Cells(n - 1, 3).Value + 1
                m = m + 1
                d = 10000
            ElseIf x = 1 Or x = -1 Then
                If comp = "" Then
                    Worksheets("Sorted_Data").Cells(n, 2).Value = person
                    Worksheets("Sorted_Data").Cells(n, 3).Value = 1
                    n = n + 1
                    m = m + 1
                    d = 10000
                End If
                y = y + 1
                d = d + 1
            End If
        Loop
        Next i