Store visble databodyrange in filtered table into an array

Hello everyone
I am trying to store the filtered visible rows of a table but I encountered an error
This is the code I am trying to use

Please Login or Register  to view this content.

and this is the error
001.png
Any idea how to fix that?

Thanks a lot for pointing out that .. but the array still not correct ..

Please Login or Register  to view this content.

The array shows only two rows of the filtered data and one column !!
Help.png

Any help in this topic please?

Here's a sample workbook

Hi Yasser,

This works on the unprotected sheet:

Please Login or Register  to view this content.

Thanks a lot my friend
But I need to store the data inside the table only (only visible rows in the table) ..
The sheet has other data ..
That's a point.

Another point as for your code it deals with the hidden rows too and this is not desired
And when I tried to add this line I got an error(424) : Object required

Please Login or Register  to view this content.

Hi Yasser old friend,

Where do you want to store the data?

Please Login or Register  to view this content.

Thanks a lot for solution
Is there a way to avoid the copy part and store directly the databodyrange of the table ..!! I expect there is a way and I have googled a lot but with no luck

I thought of a way by converting the table to range then converting the range again to table
I used this line to convert the table to range

Please Login or Register  to view this content.

But the problem is that I lose the filtering process after converting ..
So is there a way to keep the filtered data after converting?

Hi Yasser,

Thanks for the rep!

This seems to work:

Please Login or Register  to view this content.

Thank you very very much my friend. I appreciate a lot your help

It seems there is no way escaping the loops (and this cause slow in execution as the original data is too large)
Generally the thread will be open for others to share their ideas
Thanks a lot for great help

You're welcome old friend, probably establishing a worksheet array on a temporary sheet would be the quickest