Автор: Андрей Фетисов. Здравствуйте уважаемые форумчане,  Помогите, пожалуйста, дописать условие, если при переборе критериев для расширенного фильтра, данные есть, то тогда создавать лист:Sub Filter() Worksheets.Add.Name = "раос_гп_291_4000" 'Создание нового листа Worksheets("Ввод").Range("A5:O33").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Worksheets("Лист1").Range("S13:V14"), _ CopyToRange:=Worksheets("раос_гп_291_4000 ...