Code to Delete Empty Columns

Hello all:

I need a VBA code to delete all the empty columns in a worksheet. There are column headings, this is the main issue I am running into. So I need a code that will delete the entire column if the cells in that column below row "1" are empty. Please help.

Thanks