Infinite loading time when autofilling table?

[Klash Ville]

Hello everyone, I have an issue during the autofulfillment of a table, with the following code that triggers an infinite loading time, it reaches 100% and then loops again to 0%, it's really frustating. The columns only has about 2000 rows?

    With ActiveSheet.ListObjects("Table2")
        .Range.AutoFilter Field:=.ListColumns("Found").Index, Criteria1:="<>Unknown", Operator:=xlAnd, Criteria2:="<>#N/A"
    End With
    
    Range("Table2[[#Headers],[Held Missing]]").Select
    ActiveCell.Offset(1, 0).Activate
    Do While ActiveCell.EntireRow.Hidden = True
    ActiveCell.Offset(1, 0).Activate
    Loop
    ActiveCell.FormulaR1C1 = "Held"
    Selection.Copy
    Range("Table2[Held Missing]").Select
    ActiveSheet.Paste


    With ActiveSheet.ListObjects("Table2")
        .Range.AutoFilter Field:=.ListColumns("Found").Index
    End With

 

[Klash Ville]

I figured out that the loading time is NOT infinite, ALTHOUGH, it just takes a long time for him to process the hidden and visible cells and then to paste into that same visible selection. Then, it does the same all over again until the end of the table column...

And obviously I cannot work like this, someone has an alternative?