Décaller d'une colonne la selection

Avec cette macro je peux selectionner une zone de plusieurs colonnes et lignes.
Cependant je souhaiterais décaller d'une colonne à gauche cette selection.
Amitiés
PFM
La macro de selection :
Sub Selectionner()
'
' Selectionner Macro
' Macro enregistrée le 06/08/2003 par Pierre Frédéric MERLE
'
' Touche de raccourci du clavier: Ctrl+Maj+S
'
RN = ActiveCell.Row
CN = ActiveCell.Column
If Not IsEmpty(Selection.Offset(1, 0).Range("A1").Value) Then Selection.End(xlDown).Select
If Not IsEmpty(Selection.Offset(0, 1).Range("A1").Value) Then Selection.End(xlToRight).Select
Application.GoTo Reference:="R" & RN & "C" & CN & ":RC"
End Sub