Проблемы со счетчиком

[Anette03]

Добрый день!
Очень нужна помощь в цикле со счетчиком - не пойму, где ошибка.

Есть цикл:

Set r = Range(Cells(4, 40), Cells(Rows, 40)) 'диапазон заполненных ячеек фильтра печати

For Each C In r.Cells

If C <> "" Then

y = Application.WorksheetFunction.Count If(Range(Cells(4, 40), Cells(C.Row, 40)), C)

If y = 1 Then 'если в попадаются несколько одинаковых значениях в списке, печатается только первое
T = C.Row
p = Trim(str(T))

'перенос значений на лист с формой акта
Sheets("Act").Cells(2, 2) = Sheets("Выплаты").Cells(p, 37) 'ФИО
Sheets("Act").Cells(3, 2) = Sheets("Выплаты").Cells(p, 38) 'дата
Sheets("Act").Cells(4, 2) = Sheets("Выплаты").Cells(p, 39) 'Этап

Worksheets("Act").Activate
ActiveSheet.Range("$A$21:$I$1000"). AutoFilter Field:=5, Criteria1:="<>"

'сохранение актов (агентских) в новую папку в PDFActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=iPath & "\" & _
Worksheets("Выплаты").Cells(1, 25) & "; " & Worksheets("Act").Cells(2, 2) & " " & _
"; Этап " & Sheets("Act").Cells(4, 2) & ".pdf"
End If
End If
Next C

Вид таблицы такой:
Снимок.jpg


Ошибка в том, что счетчик проходит первое значение (в 4 строке), y = 1, а дальше, когда встречает значение в строке 7, у = 0: точнее при первом шаге у = 1, а на следующем = 0. Это похоже на "глюк", но может быть, где-то я не так написала?

Помогите, пожалуйста, разобраться.

Большое спасибо!

[doober]

Я бы так сделал

    Dim Sh As Worksheet, Col As Collection, X
    Set Sh = Worksheets("Вася Пупкин")
    Set Col = New Collection
    On Error Resume Next
    lLastRowMY = Sh.Cells(Sh.Rows.Count, 40).End(xlUp).Row
    X = Range(Sh.Cells(1, 40), Sh.Cells(lLastRowMY,40))
    For n = 4 To lLastRowMY
If X(n, 1) =""  Then GoTo Continuefor

        Err.Clear
        Col.Add X(n, 1), X(n, 1)
        If Err.Number <> 0 Then GoTo Continuefor

        'перенос значений на лист с формой акта
        Sheets("Act").Cells(2, 2) = Sheets("Выплаты").Cells(n, 37)    'ФИО
        Sheets("Act").Cells(3, 2) = Sheets("Выплаты").Cells(n, 38)    'дата
        Sheets("Act").Cells(4, 2) = Sheets("Выплаты").Cells(n, 39)    'Этап
        'Дальше ваш код

        '====================



        '===================
Continuefor:
    Next

[Anette03]

doober, muchas gracias! Все заработало!

[doober]

Boa sorte amigo