Excel VisualBasic Script

Sub DoWhileDemo()
    Do While ActiveCell.value <> Empty
        ActiveCell.value = ActiveCell.value * 2
        ActiveCell.offset(1, 0).Select
    Loop
End Sub