Aide sur VBA

J'ai une ancienne macro auquelle je voudrais rajouter les infos suivantes :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 26/04/2010 par marcha_x
'

'Range("A8").Select
Cells.Select
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub



mais quand je fais un copier coller on me dit erreur de la procédure à l'exterieur