Macro to: Delete specific columns (and to create csv)

Hi Guys,

I need a macro which would delete columns based on specific criteria after clicking a button. I'm attaching an example file containing 3 tabs:
raw export - this is an export of a database, this is pasted manually to a tab;
working - which is a tab to be presented to a country consultant to decide if a listed company is going to participate in a survey;
to import - will be imported back to the database after review.

So in the tab WORKING in this example I need to remove all columns which are not specific for POLAND (POL). What need to be deleted depends on a field H1. Columns marked 'ALL' can never be deleted. And second thing is to remove all values after last not empty row (well empty rows have ZEROS here because of linking).

In the tab TO IMPORT I also need to remove columns, which are not specific, but I cannot change names of headers, or add any additional row for mapping. Maybe there could be some mapping tab added or another row in "WORKING" tab to do this. Or maybe there could be another button to change "Y" values into "1" directly from "WORKING" and create CSV file? What is marked in green in the tab "TO IMPORT" is linking and without this it will not be possible to update database.

If you have any ideas how to combine all this ideas into something smart, I would be grateful.