I wish we could edit are post but anyway, here is a one line that will do the same.
Sub DeleteColumn()
Range("A:A,C:C,E:E,H:H").Delete Shift:=xlToLeft
End Sub
Don't need to select the columns
Cimjet