VBA Code to copy data under filtered header into new sheet

Hi,
I would really like help on VBA for the below, i can't seem to find the code anywhere!
It would be so greatly appreciated

1. selecting all rows with data below header when filter has been set
2. pasting a number of rows of data into a new sheet on next available empty line (below already filled rows of data)

when i record i get this, however, the top line doesnt work when i change the core data - could i use something like this - xlCellTypeVisible?
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however the thread title does not really convey what your request is about. Tell us what you are trying to do, not how you think it should be done.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. I have made the change for you today. Please review the forum rules you agreed to and abide by them in the future.)