Macro to delete unwanted data

Need a MACRO to delete unwanted data...
MACRO needs to be activated when sheet is open..
Attach is the sheet for explanation..
In the main sheet the highted data needs to be deleted...
Once all unwanted cells deleted the file should look like as in Sheet1.

FYI : Column A : Do a search for all Data with value=0 and delete all rows
Delete Column B,C.D.G,H,I,J,k,L,M,N,O,P
Once all of the above done Sort Column A A>>Z...

i hope this is clear explanation...

Thank u in advance for help..