Help on how to Loop Copy Paste to End of the Table VBA/Macro that do two rows only

Hello Experts, I need help to loop this vba/macro below to the end of the table row 57200.

Thanks in advance...


Sub copypaste()
'
' copypaste Macro
'
' Keyboard Shortcut: Ctrl+l
'
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Do
ActiveCell.Offset(1, 0).Select
Loop Until Rows(ActiveCell.Row).Hidden = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

the code I posted only work perfectly on two filtered rows, but I need this code to work for a couple of thousand filtered rows, any suggestion would be greatly appreciated...

Hello again Experts, I am really new to this any suggestion will helpful, I finished my work by clicking the macro button a thousand times but I am afraid I have to do this again next time I encounter this problem...