try this idea. Be advised that it will also remove ties so you could remove
more than 5. Need a loop with a counter to avoid.

Sub showbottomfive()
Set myrng = Range("A2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
With myrng
..AutoFilter Field:=1, Criteria1:="5", Operator:=xlBottom10Items
..SpecialCells(xlVisible).EntireRow.Delete
End With
End Sub

--
Don Guillett
SalesAid Software

"bil-bil" wrote in message
...
i am very new to using excels, but have built a little tournament sheet. we
are holding 40 games in the tournament and are dropping the 5 lowest
scores.
please help thankyou in advance.