Remove blank columns

I have a spreadsheet with app. 20,000 rows and 102 (CX) columns. I need help writing a macro that will start at column A and check to see if all the cells in that column starting at row 2 are empty. If all cells are empty I would like to delete the column.

The issue I'm having wrapping my head around this is that if I delete column A and everything shifts to the left and I now go to column 2 I am missing one column that may need to be deleted.

The first row is field names and all 102 have data in them. I would like to start at row 2.

I am using excel 2007.

Thanks