Se pueden crear 800 macros automaticamente?

La verdad, no me explicado demasiado bien porque lo veia muy dificil, pero
allá voy:
te voy a poner dos macros que he creado y asi veras muy bien lo que se
cambia, para activar esta macro anteriormente se han copiado datos en el
protapapeles mediante otra macro, por eso esta lo primero la funcion
pegar.
Gracias por tu interes, joe! no sabes el trabajo qeu me puedo ahorrar si
funciona esto, gracias de verdad por lo menos por intentarlo.

Sub pegarA1()
'
' pegarA1 Macro
' Macro grabada el 22/06/2005 por Jose
'

'
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True
Range("D5:D12").Select
Range("D12").Activate
Application.CutCopyMode = False
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

Range("D5").Select

Selection.Copy
Range("A1").Select
Sheets("almacén").Select
Range("L2:U2").Select
End Sub


Sub pegarA2()
'
' pegarA2 Macro
' Macro grabada el 22/06/2005 por Jose
'

'
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True
Range("D5:D12").Select
Range("D12").Activate
Application.CutCopyMode = False
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

Range("D5").Select

Selection.Copy
Range("A1").Select
Sheets("almacén").Select
Range("L2:U2").Select
End Sub