Следующий код, расположенный в модули требуемого листа допустит ввод текста в столбец "A", ввод чисел в столбец "B" и ввод даты (и пробела) в столбец "C".  
Private Sub Worksheet_Change(ByVal Target As Range)  
 
   If Target <> "" Then  
       Select Case Target.Column  
           Case 1: If Application.IsText(Target) Then Exit Sub  
           Case 2: If IsNumeric(Target) Then Exit Sub  
           Case 3: If IsDate(Target) Or Target = " " Then Exit Sub  
       End Select  
       Target.Select: Target.ClearContents  
       MsgBox "Недопустимо"  
   End If  
     
 
End Sub

Я привел код в качестве примера. Подставьте требуемые диапазоны проверки и требуемые условия.  
 
P.S. А что значит разрешить вводить "DELETE"?

Если текст начинается с цифры - он все равно текст. Текст, в принципе, может состоять из одних цифр.    
Вам нужно проверять каждый введенный символ, или значение ячейки целиком?  
Пока ввод не закончен, никто не скажет что в ячейке.  
А проверять можно все, что угодно. Например, контролировать коды всех введенных символов, или использовать шаблоны (оператор Like). Все зависит от конкретной задачи.  
 
Поставьте вопрос корректнее - получите нужный Вам ответ.

Пардон, вот код:  
{/post}{/quote}  
SAS888! Вы позволите мне добавить одну строчку в Ваш код:  
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target <> "" Then  
       Select Case Target.Column  
           Case 1: If Application.IsText(Target) Then Exit Sub  
           Case 2: If IsNumeric(Target) Then Exit Sub  
           Case 3: If IsDate(Target) Or Target = " " Then Exit Sub  
       End Select  
       Target.Select: Target.ClearContents  
       Target.Select: Target.NumberFormat = "General"  
       MsgBox "Недопустимо"  
   End If  
   End Sub  
Иначе при ошибочном вводе в даты в ячейку "к тому не предназначенную", например, в числовую, формат даты оставался.  
С уважением, Александр.