Select ' Set Do loop to stop when an empty cell is reached. Do Until IsEmpty( ActiveCell) ' Insert your ...
support.microsoft.com