automatic delete data from excel sheet by vba

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Dim Metric As String

Metric = Target.Value

Select Case Metric

    Case "my company"

        Range("a3:k15").Value = " "

    

Case "1/1/2022"

        Range("a3:d1000").Value = " "

    Case "1/2/2022"

        Range("a3:d1000").Value = " "

    Case "1/3/2022"

        Range("a3:d1000").Value = " "

    Case "1/5/2022"

        Range("a3:d1000").Value = " "

    Case "1/7/2022"

        Range("a3:d1000").Value = " "

    Case "1/9/2022"

        Range("a3:d1000").Value = " "

    Case "1/11/2022"

        Range("a3:d1000").Value = " "

    Case "1/12/2022"

        Range("a3:d1000").Value = " "

    Case "1/13/2022"

        Range("a3:d1000").Value = " "

    Case "1/14/2022"

        Range("a3:d1000").Value = " "

    Case "1/15/2022"

        Range("a3:d1000").Value = " "

    Case "1/16/2022"

        Range("a3:d1000").Value = " "

     Case "2/16/2022"

        Range("a3:d1000").Value = " "

    Case "2/16/2022"

        Range("a3:d1000").Value = " "

   

    End Select

End Sub