Filtering duplicate values with distinct scores

I have an excel which is containing records of users who have given an online test.Many users have given the test multiple times. I need to extract the records of every indivdiual with the highest score. example it could be individual A, B and C have given the test 3 times with different scores achieved. I need the records of A, B and C in which their score was maximum.
I hope I have clarified the problem I am in.
Looking forward to quick response.

Data Range

	A	B	C	D	E	F	G	H
1	Name	Score		Max	Sam	Jim
2	Max	100		100	99	87
3	Sam	98
4	Jim	45
5	Max	85		Be sure to confirm with Ctrl + Shift + Enter
6	Sam	99		to get curly brackets
7	Jim	55		D2= {=MAX(IF($A$2:$A$8=D$1,$B$2:$B$8))}
8	Jim	87		Copy over
9

Thanks Alan,
I think you have not completely understood the question, I will try and explain it again maybe I did not explain it clearly in the first instance. the columns that you see as empty in my attachement will all have values and I need the complete row of that person who has scored the maximum value, maybe in another worksheet in the same file. However, thanks for getting the discussion initiated .
I hope i am making some sense !!!

1) if needed make a copy of the table (non-max duplicates will be permanently removed)
2) select all table and sort on score in decreasing order
3) with whole table selected Data->Remove Duplicates (unselect score from field list)
4) if needed sort again in previous order (alphabetically or in employee nomber etc).

Have you done this: unselect score from field list
and also any other fields which could be different for the same person like date etc.

Here is an alternative VBA solution.

Option Explicit
Sub HTH()
    Dim dMax As Double
    Dim lRow As Long
     
    With Sheet1 'Sheet CodeName
        dMax = WorksheetFunction.Max(.Columns(8))
         
        If dMax > 0 Then
             'Use Find Method
            lRow = .Columns(8).Find(What:=dMax, After:=.Cells(1, 8), LookIn:=xlValues, LookAt:= _
            xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
             
             
            'MsgBox "Row number with " & dMax & " is: " & lRow
        End If
        Rows(lRow).EntireRow.Copy Sheets("Sheet2").Range("A2")
    End With
End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button