Sélection etendre, diminuer ou decaler.

Bonsoir,
Pour étendre ou diminuer une sélection sur les colonnes à droite, j’ai bien trouvé le moyen :
Sub Macro8()
'Etendre la sélection de 5colonnes puis la réduire de 3.
Range("G7:G10").Select
Selection.Resize(Selection.Rows.Count, Selection.Columns.Count + 5).Select
Selection.Resize(Selection.Rows.Count, Selection.Columns.Count - 3).Select
End Sub
J’aimerai pouvoir faire la même manipulation avec les colonnes a gauche.
Ou décaler la sélection d’une ou deux colonnes vers la gauche
Que la sélection devienne F7:G10 ou E7:G10
Merci.
Cordialement.