VBA to copy multiple filtered data to another sheet from the last occupied cell

[SteynBS]

Hi guys,

I have a table with multiple columns, the number of columns will always change as the data changes. I need to filter each column and copy the corresponding data to another sheet. Go back to the table filter another column and copy that corresponding data to the other sheet. This process continues for all the available columns with data. Examples below. The table on the right needs to be filter per column with data. The corresponidng data is found in the table on the left.

Example 1

Example 2 and so on

What ever is visible on the table on the left needs to be copied into another sheet named "delete" from cell B2. When the 2nd column is filtered, the data in the left table should be copied in the Sheet "delete" below the previous data that was coppied.

In example 1 Column G was filtered. With the corresponding data in the left table I need the header to be copied and pasted as well(headers value will change from time to time). So the Header is pasted in Column A with the data from the left table pasted from Column C through D

This should be done for all the columns availabe on the right which will either be more or less columns depending on the data.

I will appreciate any guidance and assistance.