Cell has Err value?

Try change to
Do While (Not IsError(ActiveCell.Value)) * (IsEmpty(ActiveCell.Value))