do you need them summarized on 1 sheet, or does everybody have their own sheet?

ok, try this. i assumed that the sheetnames were sheet1 and sheet2. that the
names start in a2 and the scores in b2 on sheet1. there are column headings
on sheet2, name and score. i assumed i could use c1 on sheet1 for a subtotal
formula, move it if you have something in c1 and change the references to
c1.
watch for word-wrap in the post, there are no line breaks in the code

Sub consolidate()
     Dim enames As Collection
     Dim lastrow As Long
     Dim j As Long, i As Long
     Dim c As Range
     Dim empStr As String
     Dim ws As Worksheet
     Dim ws2 As Worksheet
     Dim escore As Double
     i = 2
     Set ws = Worksheets("Sheet1")
     Set ws2 = Worksheets("Sheet2")
     lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
     ws.Range("C1").Formula = "=subtotal(109,b2:b" & lastrow & ")"
     Set enames = New Collection
     For Each c In ws.Range("A2:A" & lastrow)
           On Error Resume Next
           empStr = Trim(c.Value)
           enames.Add empStr, CStr(empStr)
           On Error GoTo 0
     Next
     For j = 1 To enames.Count
           With ws.Range("A1:B" & lastrow)
                 .AutoFilter Field:=1, Criteria1:=enames(j),
Operator:=xlAnd
           End With
           Debug.Print enames(j)
           escore = ws.Range("C1").Value
           ws2.Range("A" & i) = enames(j)
           ws2.Range("B" & i) = ws.Range("C1").Value
           i = i + 1
     Next
     ws.AutoFilterMode = False
End Sub