Sub anti_record()
Dim num
Dim i
Dim count
Dim CellValue As Range
count = Int(0)
dat = Int(0)
For i = 2 To 639
If Cells(i, 2).Value > num Then
num = Cells(i, 2).Value
count = count + 1
End If
Next i
Set CellValue = Range("I4")
CellValue.Value = count
End Sub