Macro to delete rows and columns

[siroco79]

Hi there,

I working in a macro that it is driving me crazy and do not know what else to do to make it work.

Basically I want to delete rows and columns that do not contain relevant data. These are easily spottable because they have 0s in them.

These are the steps that I am following to create the macro:
'Indentifying range of rows to be deleted
1.look up (Ctrl+f) for value 0 by columns. [working well]
2.Ctrl+G to go to cell A751, as this file it's been grouped by every 750 rows.
3.Select entire range and (B16:A751) and delete entire row range.

The problem comes in the next step when A751 is not any more a valid parameter as rows have been shifted up.

When it comes to columns, I would like to keep only M and N, R and S, W and X, AB and AC, AG and AH, etc. Basically, you find them every three colums. The only expeption to this is column D to L that I would also like to delete.

Maybe there is an easier solution?? Could you give me a hand with this?

Thanks!!!