Microsoft Excel - Macros - Delete - Delete Columns

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