Здравстуйте,  
возникла такая проблема:  
для удаления лишних пустых строк я добавил цикл  
   Do Until ActiveCell = "ТOTAL EUR:"  
           Selection.EntireRow.Delete  
           ActiveCell.Offset(1, 0).Select  
   Loop  
но когда доходит до этого дело, макрос начинает жутко тормозить и просто спускаться по  строчкам вниз, без их удаления. Вне цикла команда прекрасно работает, в чем может быть дело?