Run-time error 13 - type mismatch when deleting data from multiple cells at once

Hi,

I’m currently making a simple macro for a spreadsheet. I have made a data validation list in some of the columns to automatically run a macro when selected to insert either the current time or the current date. It works perfectly normally, but the issue is that when I chose to highlight a block of cells in the spreadsheet and delete the data, a pop up opens and it says:

Run-time error '13':

Type mismatch


And when I hit on the debug option, it highlights the following code

Case "Insert Current Time"

The issue only arises when I try to delete data from multiple cells at once. Please help! Thanks

Private Sub Worksheet_Change(ByVal Target As Range)
 
If (Target.Column >= 1 And Target.Column <= 3) And (Target.Row >= 1 And Target.Row <= 40) Then
Select Case Target
 
Case "Insert Current Time"
Call MacroInsertTime
 
Case "Insert Current Date"
Call MacroInsertDate
 
Case Else
'Do nothing
 
    End Select
      
    End If
 
End Sub