Hide a data

Another Option...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4:B3000")) Is Nothing Then
    Application.EnableEvents = False
    If Target.CountLarge > 1 Then
        Target.Offset(, 2).Resize(Target.Cells.Count) = ""
    ElseIf Target <> "" Then
        Target.Offset(, 2) = 200
    Else
        Target.Offset(, 2) = ""
    End If
    Application.EnableEvents = True
End If
End Sub