Tengo una programa en macro

Tengo un programa en macro que le doy en una columna 10 fechas, en otra columna otras 10 fechas y deseo que me coloque en otra columna la diferencia de las fechas en días: esto es lo que llevo hasta ahora:
Sub Auto_open()
Range("H5:H15").Select
actual = ActiveCell.Value
Range("F5:F15").Select
While ActiveCell.Value <> ""
distancia = ActiveCell.Value
registro = ActiveCell.Value
distancia = registro - actual
registro = distancia
MsgBox ("Quedan " & distancia & " días por transcurrir")
ActiveSheet.Range("J5:J6").Value = (registro)
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Sin embargo este programa lo da en un cuadro de texto y yo lo quiero en una celda, ¿qué cambios debe hacer?, ¿Ya no se me ocurre nada? ¿? ¿? ¿?