Macro para Excel 2003 crear archivos según lo indique una determinada lista(va dirigida a Elsa Matilde)

Buenas noches Elsa, por favor te molesto esta ves por que debo crear cierta cantidad de archivos (aproximadamente 500) y en esto momentos tengo una macro que fue creada para uno solo, necesitaría de ser factible que dicha macro recorra la lista y automáticamente crea el archivo.-

Esta es la Macro que tengo para un solo articulo

Sub Traspaso()

'
' Traspaso Macro
' Macro grabada el 12/10/2014 por VK

Workbooks.Open Filename:="C:\Stock\Datos\Original_Codigo.xls"
Windows("Nuevo Item.xls").Activate
Sheets("Hoja2").Select
Range("A4:B4").Select
Selection.Copy
Windows("Original_Codigo.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D11").Select
Windows("Nuevo Item.xls").Activate
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Original_Codigo.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1").Select
End Sub

Sub Registrar()
'
' Registrar Macro
' Macro grabada el 12/10/2014 por VK
'
ActiveWorkbook.SaveAs Filename:="C:\Stock\Articulos\" & [E1] & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("E1").Select
Selection.ClearContents
Range("A10").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("A2:C2").Select
Selection.ClearContents
Range("A2").Select
Sheets("Hoja1").Select
Range("A1").Select
'
End Sub

Esta seria una muestra de la lista

Articulo       Denominacion                Existencia

1             Buje Parrilla Ford                  2000

2            Buje Parrilla Fiat                    1000

3            Buje Parrilla Chevrolet/A        1550

4            Buje Parrilla Chevrolet/B           300

Te mando por correo los archivos.-