XL 2010 Répéter une macro

Bonjour,
je cherche à faire la macro que j'ai enregistrée pour chaque étiquettes (en tout il y en a 30 pages).
Mais je fais CTRL d sur la case G2 il me ramène à la case d'origine.
Comment faire pour qu'il l'applique au fur et mesure des cases que je sélectionne.
J'ai cherché et vu qu'il y a une méthode qui permet de le faire en faisant des "sauts" réguliers,
en ce qui me concerne je dois pouvoir le reprendre sur une autre page où les renseignements sur les lignes en dessous sont différents (5 lignes au lieu de 8).
La macro que j'ai créé et je cherche à ce que au lieu de
"Range("A2:C2").Select " on aient
"Range("la case que je choisi").Select"
Merci.

Sub Cases()
'
' Cases Macro
'
' Touche de raccourci du clavier: Ctrl+d
'
Range("A2:C2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Rows("2:2").EntireRow.AutoFit
End Sub