Como hacer que de las celdas a10 ;a1000 solo pueda ingresar fechas y no letras ni números

Te mando mi solución. Tienes que copiar esta macro dentro del objeto hoja que estas tratando (no en un módulo)

En el momento que escribas datos en el rang a10:a1000 se autoejecutará la macro para examinar si es fecha.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a10:a1000")) Is Nothing Then
If Not IsDate(Target.Value) Then
Application.EnableEvents = False
MsgBox "no es fecha"
Target.Select
Target.ClearContents
Application.EnableEvents = True
End If
End If
End Sub

recuerda finalizar la consulta