Remove or Clear Data

'Target refers to a cell or a range of cell that were modified
Private Sub Worksheet_Change(ByVal Target As Range)

Dim rangeToCheck As Range 'a variable to store what range is to be checked for change
Dim rngTarget As Range ' a variable that would hold cells that are were changed and are in the range in which interested

    Set rangeToCheck = Range("D2:D1000") 'interested to trap changed in column D
    
    'find what is the common range between range that is changed and range in which interested
    'if there is nothing common then NOTHING is returned, otherwise it is a range of cells that are common
    Set rngTarget = Intersect(Target, rangeToCheck)

    'check if there is some thing that is common
    If Not rngTarget Is Nothing Then
        
        ' this is the disable the events
        Application.EnableEvents = False
        
        'for each cell in the common range
        For Each rangeToCheck In rngTarget
        
            'if the cell value is Best
            If rangeToCheck = "Best" Then
                'from cell address, change the cell value one column to left
                rangeToCheck.Offset(0, -1) = vbNullString
            ElseIf rangeToCheck = "Worst" Then
                'from cell address, change the cell value one column to left
                rangeToCheck.Offset(0, -1) = vbNullString
            End If
        Next
        'enable the events back as all cells were processed
        Application.EnableEvents = True
    End If

End Sub