====== Microsoft Excel - Macros - Delete - Delete Columns ======

<code>
Sub Delete_Specific_Multiple_Columns()
  Sheets("Sheet1").Range("A:A,C:C,H:H,K:O,Q:U").EntireColumn.Delete
End Sub
</code>