How do I loop this code until the cell that the data is comming from is empty?
Sub clovis_time()
activecell.Offset(0, 0).Range("A1").Select
activecell.FormulaR1C1 = "=(RC[-1]-INT(RC[-1]))*24"

End Sub

Data in b1 is comming from the formula and a1!
Any help would be greatly appreciated, thanks neal.