Selecting visible rows post applying filters

Hi All,

I have an excel spreadsheet(Sheet1) with information in 35,000 odd trade lines, which is eventually compared against another set of records from another tab (Sheet2) in the same spreadsheet.

Have recorded a macro which does the lookup using the common parameters and returns the unique identifer in Sheet1 from Sheet2. Post updating the UID's in Sheet1 - range O:O, I need to select all the rows which are not matched and move it to another tab.

I apply filter on column O1 and select #N/A and select the complete range. Via VB I use the below code to move between to the visible row from filtered row:

Range("O1").Select
ActiveCell.Offset(1, 0).Select
Do Until ActiveCell.EntireRow.Hidden = False
ActiveCell.Offset(1, 0).Select
Loop

If the visible row is within the first 1,000 rows, it doesn't take much time. However if the same is around 25,000th row, it takes more than 5-6 mins in order to move to the visible row.

Do you guys have a solution for this problem.

Regards,
Raghu

Maybe try:

Sub Raghukumarn()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'YOUR CODE HERE

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub