Excel VBA : 空白列を削除する

アクティブシート内の空白の列を検索して、あったら削除するVBAです。

検索すればすぐに出てくるよくあるやつですが、私がよく使用する形式を記載しておきます。