Error 13 type mismatch

Any ideas why this line is bringing up the Type 13 Error?

Do While ActiveCell.Value = Empty

I've tried it like this as well:

Do While ActiveCell = Empty

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

Do While IsEmpty(ActiveCell.Value)

Cell has Err value?

Try change to

Do While (Not IsError(ActiveCell.Value)) * (IsEmpty(ActiveCell.Value))