Do While - Until help

Hi,

I wanted to know if there's a way to do a loop meanwhile I have some filters applied in the sheet. I want to repeat the same macro until the active cell is not blank. If the active cell is blank stop the loop. Otherwise repeat the macro only for active cells.

Here you have what I tried, the first option doesn't have the capability to let the code understand that offset to next row has to be in the next visible cell only.

The second code will do the loop only for visible cells but whenever a cell is blank the debug message is stopping the code with an error.

    ActiveCell.Offset(1, 0).Select
    Do Until IsEmpty(ActiveCell.Value)
    Call No_Clear_Experience
    Loop


    Do Until ActiveCell.Offset(1, 0).SpecialCells(xlCellTypeVisible).Select
    If Active.cell.Value = " " Then Exit Do
    Call Useful_Yes
    Loop

Hello Perez199202,

You can speed up the Code provided by Logit, as below;

Option Explicit
Sub RunLoopUntil()

   Application.Calculation = xlCalculationManual
    
    ActiveSheet.Range("A1").Activate
    ActiveSheet.Range("A1").Value = 0
    ActiveSheet.Range("A1").Value = Range("A1").Value
  Application.ScreenUpdating = False
    Do Until IsEmpty(ActiveCell.Value)
    ActiveCell.Offset(1, 0).Select
    Call No_Clear_Experience
    Loop
    
 Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
  
End Sub


Sub No_Clear_Experience()
'If Selection.Count > 1 Then Exit Sub
  With ActiveSheet.Range("A1")
    .Value = .Value + 1
End With
End Sub

Regards.