Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A5")) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(-1, 0) = ">=" & Target.Value2
Else
Target.Offset(-1, 0) = ""
End If
End If
If Not Intersect(Target, Range("B5")) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(-1, 0) = "<=" & Target.Value2
Else
Target.Offset(-1, 0) = ""
End If
End If
End Sub