Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
Target.Value = 999
End If
For i = [a65000].End(xlUp).Row To 1 Step -1
If Not Cells(i, 1).Find("999") Is Nothing Then Rows(i).Delete
Next i
End Sub