Цикл по сортированному столбцу

[МирзоАкмал]

Доброго Всем дня!
Проблема такая что после сортировки, цикл читает данные в не отсортированном виде. Вот код:
Worksheets(2).Range("A7:J" & i).Sort Key1:=Worksheets(2).Range("J6"), Order1:=xlDescending, Header:=xlYes
z = 6
For i1 = 1 To ActiveSheet.UsedRange.Rows.Count
z = z + 1
y = z + 1

fio1_ = Range("J" & z)
fio2_ = Range("J" & y)

MsgBox (fio1_ & z & Chr(13) & fio2_ & y)
Next i1

[kalbasiatka]

Чему равно "i", зачем "Y", если он равен "Z"?