Suppression de plusieurs colonnes

Bonjour,

J'aimerais supprimer 2 lignes et plusieurs colonnes d'un tableau dans une feuille via une macro VBA.
J'ai essayé celle-ci, mais cela ne fonctionne pas :

Sub suppression()
Rows("1:2").Delete Shift:=xlUp
Columns("F:F").Delete Shift:=xlToLeft
Columns("H:M").Delete Shift:=xlToLeft
Columns("P:X").Delete Shift:=xlToLeft
Columns("Z:AB").Delete Shift:=xlToLeft
Columns("AD:AJ").Delete Shift:=xlToLeft
Columns("AN:AZ").Delete Shift:=xlToLeft
Columns("BB:BB").Delete Shift:=xlToLeft
Columns("BF:BU").Delete Shift:=xlToLeft
Range("A1").Select
End Sub

Pourriez-vous m'aidez ?

Je vous remercie par avance,