Copia de filas masiva.

Sigue las Instrucciones para ejecutar la macro
1. Abre tu archivo de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5

Sub copiarfila()
'Por.DAM
co = "A"
cd = "F"
j = 2
p = Array("17", "23", "25", "99")
s = Array("s", "n", "n", "n")
For i = 2
To Range(co & Rows.Count).End(xlUp).Row
    For k = LBound(p) To UBound(p)
        Cells(j, cd) = Cells(i, co)
        Cells(j, Columns(cd).Column + 1) = p(k)
        Cells(j, Columns(cd).Column + 2) = s(k)
        j = j + 1
    Next
Next
MsgBox "Copia de filas terminada"
End Sub

Cambia en esta parte de la macro tu columna de artículos, yo puse la columna A

co = "A"

Cambia en esta parte de la macro tu columna destino, yo puse la columna F
cd = "F"

Gracias por la pronta respuesta, pero me dice que el procedimiento externo no es valido...

no lo puede ejecutar.

Perdona no se copió bien, prueba con esta

Sub copiarfila()
'Por.DAM
co = "A"
cd = "F"
j = 2
p = Array("17", "23", "25", "99")
s = Array("s", "n", "n", "n")
For i = 2 To Range(co & Rows.Count).End(xlUp).Row
For k = LBound(p) To UBound(p)
Cells(j, cd) = Cells(i, co)
Cells(j, Columns(cd).Column + 1) = p(k)
Cells(j, Columns(cd).Column + 2) = s(k)
j = j + 1
Next
Next
MsgBox "Copia de filas terminada"
End Sub

la verdad que te agradezco muchísimo, pero ahora me aparece el cartel con la copia de filas terminadas, pero no hace nada. sigue todo igual.