Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
Set myRange = ActiveSheet.Range("A10:A30")
If Target.Count = 1 Then
If Not (Intersect(Target, myRange)) And Target.Value = "" Then
Target.EntireRow.Delete Shift:=xlUp
End If
End If
End Sub