dim i as long, lr as long
lr = cells(rows.count,1).end(xlup).row
i = 1
do until cells(i,1).value > 6
    i = i+1
loop
'something with cells(i,1).value