Selecting range of cells with VBA and then running a formula to delete highest number

I am trying to select a range of cells C1:C5 and then run a formula that finds the highest number and then deletes that row. So far I can find the range of numbers but then the VBA coding makes the first cell a "0" and then nothing else. Eventually I want my code to go to every range and delete highest score on each team. I have attached an example of what I am working on.