Offset to next visible cell in filtered data

Hi,

I wanna check the value of every visible cell in an filtered data. To move along the filtered data I was using the below formula

Please Login or Register  to view this content.

This works fine, but prob is my sheet has 6000+ value, due to which the macro files hang. Is there a shorter way of doing this and achive the same result.

Thanx for any help.