Macro: Deleting a range of specified columns

Hi,

First post on these forums so please point out if I am doing something wrong!

I am attempting to create a macro to delete a range of columns in the one sheet. To be clear, the whole column can be deleted... I don't need any of the data in the specified range. I am not sure if a solution has been posted to this problem yet (I did do some searching with no result). Below is my own muddled attempt at creating the macro, each time it's run I get a 1004 runtime error ("Method 'Range' of obeject '_Global' failed").

Sub DeleteColumn()
Range("G:H,K:M,O:R,T:AB,AD:AU,A,AW:DU,DW:DY,EA:EX,EZ:HS").Delete Shift:=xlToLeft
End Sub

Thanks in advance!

D'oh!

Thanks for the help Sbarro, really appreciate it.

Deleted: too late