Delete rows without deleting title row using a loop

Hi, thank you in advance for any help!

I am trying to delete all rows that have a value equal or greater than zero on Column J. For some weird reason the macro is also deleting the title row! The title row has only words and letters. Column J's title is WEB. Could anyone help me figure out what is wrong with my code? Here it is:

Sub DeleteRows()

Dim i As Long

For i = Cells(Rows.Count, "J").End(xlUp).row To 1 Step -1

    If Cells(i, "J").Value >= 0 Then Cells(i, "J").EntireRow.Delete
  Next i
End Sub

Perfect, it works! Thank you!