Getting to the end of the spreadsheet

[cosber]

A macro I use for manipulating data is supposed to go to row 2500 of the spreadsheet and work it's way back up and delete rows if the parameters match. In stead of going to the end, it only goes down to row 130.
Here's the beginning of the code:

Public Sub Delete()


Dim intRow
Dim intLastRow
intLastRow = Range("E2500").End(xlUp).Row

Range("E1").Select
' sortall1
  Sheets("all1").Select
For intRow = intLastRow To 1 Step -1
Rows(intRow).Select
If Cells(intRow, 5).Value Like "XX*" And Cells(intRow, 7).Value = "OK" Then
Cells(intRow, 5).Select
Selection.EntireRow.Delete

End If

Next intRow

Any suggestions as to why it won't go to row 2500?