Evaluar contenido en celda

Hola Foro:

Tengo la siguiente macro que me calcula el numero de dias en columna,
a partir de una celda ocupada, cuando el contenido la celda es de
fecha calcula los dias y escribe en la colunma siguiente , pero si es
cualquier otro formato se detiene y no realiza ninguna accion.

Habra alguna modificacion a esta macro,en caso no tener de formato de
fecha, simplementete se prosiguiera con el bucle hasta evaluar la
ultima celda.

Sub Calculodias()
On Error GoTo salir
actual = Now
ActiveCell.Select

While ActiveCell.Value <> ""
registro = ActiveCell.Value
distancia = actual - registro
ActiveCell.Offset(0, 1).Value = distancia
ActiveCell.Offset(1, 0).Select
Wend
salir:
End sub