Change message to include range

The want to change the following code:

If Cells(22, 11).Value = "QS" Then
MsgBox "Previous code"
Exit Sub
End If

To this:

If IsNumeric("I24:I1000").Value
If Cells(22, 11).Value = "QS" Then
MsgBox "There is data in column I24:I1000, find and delete this
data"
Exit Sub
End If

The change to the code is to inform the user that there is data in the
range I24:I1000