VBA code to delete rows in a selected range.

I got the following code from Julian's Macro Tips web site. The code checks for null or empth string values and when they are found deletes those rows. Can anyone help me to rewite this to have it evaluate the active cell and if the value is notbetween 1999 and 3000 then delete those rows that meet the criteria?

Sub DelEmptyRow()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rng
If ActiveCell.Value = "" Then 
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Application.ScreenUpdating = True
End Sub

Any help would be much appreciated.