If next row of active cell has data then exit sub Worksheet change event

[HaroonSid]

hi,
i am using below code to get last empty row of a range,

If Not Intersect(Target, Range("I10:I1000")) Is Nothing Then
Call LastRowSelect
End If

[CODE]Sub LastRowSelect()
Dim lastrow As Long
lastrow = Range("F" & Rows.Count).End(xlUp).Row + 1
Range("F" & lastrow).Select
End Sub[/CODE
I need to change my code as
if next row of active cell has some data then exit the sub

for example
i type some data in Range("I15") and range("I16") has already data then don't run the macro name called "LastRowSelect"

thank you
hope some one will help

[JOHN H. DAVIS]

Maybe:

If Not Intersect(Target, Range("I10:I1000")) Is Nothing Then
If Target.Offset(1) = "" Then Call LastRowSelect
End If

[HaroonSid]

Perfect
thank you @JOHN H. DAVIS

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback and reps.