Delete empty cells

[kingdt]

I know the bare minimal about VB but believe it will be the only way to solve my problem. I have a spreadheet with data in that is linked to by another excel spreadsheet. Each 2 columns contain data for a particular question.

Column A are the available answers to question 1 and column B is how many people gave that answer for that question. Then column C is the available answers to question 2 and column D is the number of people that gave that answer for that question and so on. Hope that makes sence.

What i want to do is to run a macro that will go down column B and all the cells that have a 0, it will delete that cell and the cell in column A next to it. Then when it gets to the end of looking down column B it does the same down column D, then column F and so on.

Is that possible to do?

Thanks in advance