Because that it's how you use the Empty function, what you're looking for is:

Do While IsEmpty(ActiveCell.Value)