while loop question

Hi, I want to make a while loop that basically does the following:

While Range("A1").Value <> number
   do this

The while loop should continue until it reaches a blank cell, or a cell that contains words rather than numbers. Thanks for the help!