Evaluar contenido en celda

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