Dim rwIndex As Long, nCountCells As Long, sAddresSelect As String, rSelectidRange As Range
nCountCells =  0 
sAddresSelect = ""
rSelectidRange = Nothing
For rwIndex =  10  To  100 
    If ЕдИзм <> "" And КолвоВсего <> "" And Исх <> "" And ДатаЗаявки <> "" And Подразделение <> "" And 
НаправлениеРасхода <> "" And НаправлениеДеят <> "" And СтатусЗаявки <> "" Then
' Запоминаем в строке, адрес, который нужно включить в итоговое выделение
        sAddresSelect = sAddresSelect & "A" & CStr(rwIndex) & ":" & "AP" & CStr(rwIndex) & ","
' Увеличиваем счетчик запомненных адресов, максимум 30 адресов
        nCountCells = nCountCells +  1 
        If nCountCells >  29  Then
'        Если адресов критическое значение, получаем Range по ним
'        Обрезаем последнюю запятую
            sAddresSelect = Left(sAddresSelect, Len(sAddresSelect) -  1 )
'            Проверяем, если наш итоговый диапазон ещё не определён
            If rSelectidRange Is Nothing Then
'            Определяем итоговый диапазон
                Set rSelectidRange = Range(sAddresSelect)
            Else
'            Иначе, добавляем к итоговому диапазону новую порцию
                Set rSelectidRange = Application.Union(rSelectidRange, Range(sAddresSelect))
            End If
'            Сбрасываем счетчики для новой порции ячеек
            sAddresSelect = ""
            nCountCells =  0 
        End If
    End If
Next rwIndex
'По окончании цикла добавляем остатки
sAddresSelect = Left(sAddresSelect, Len(sAddresSelect) -  1 )
If rSelectidRange Is Nothing Then
    Set rSelectidRange = Range(sAddresSelect)
Else
    Set rSelectidRange = Application.Union(rSelectidRange, Range(sAddresSelect))
End If
'Выделяем полученное множество
rSelectidRange.Select
Set rSelectidRange = Nothing

ActiveWorkbook.Sheets("Не прошедшие проверку").Range("A1:AP" & _
    CStr(Номер_последней_скопированной_строки)).Select