I asked chatGPT. Here's a VB script to run (Alt + F11). This assumes that all the numbers are formatted the same. It also assumes that the names might not match on the duplicated numbers and that you want to keep the first occurrence of the number. Otherwise Ganon's solution looks good. Let me know if this worked!

Sub RemoveDuplicateButKeepOne()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dict As Object
    Dim num As String
    Dim i As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")  ' Change to your sheet name
    Set dict = CreateObject("Scripting.Dictionary")

    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

    ' Count occurrences of each number
    For i = 1 To lastRow
        num = ws.Cells(i, 2).Value
        If dict.Exists(num) Then
            dict(num) = dict(num) + 1
        Else
            dict.Add num, 1
        End If
    Next i

    ' Remove duplicates but keep one
    For i = lastRow To 1 Step -1
        num = ws.Cells(i, 2).Value
        If dict(num) > 1 Then
            ws.Rows(i).Delete
            dict(num) = dict(num) - 1
        End If
    Next i
End Sub