Buena tarde

Tengo un problema con una macro, es justo en el renglon marcado donde me indica el error. Por favor su ayuda.

Sub Test()

numhoj = InputBox("¿Cuántas filas desea insertar?", "Insertar filas")

If Not IsNumeric(numhoj) Then Exit Sub

Rows("16:16").Copy

Rows("16:" & 15 + numhoj).Select

Selection.Insert Shift:=xlDown

Selection.PasteSpecial Paste:=x1PasteFormulates

Selection.ClearContents

Application.CutCopyMode = False

End Sub

revisa lo siguiente:

1) ese tipo de constantes (generalmente) inician como "xl" (EQUIS-ELE) NO como "x1" (EQUIS-UNO)

2) el sufijo "Formulates" NO existe (???)

- quisiste usar "Formulas" ?

3) no le veo sentido a las instrucciones ".Copy", ",PasteSpecial" y ".CutCopyMode" si al final de cuentas BORRAS el contenido a las filas insertadas (?????)

para ese caso, prueba simplemente con algo +/- como:

Sub Test2()

  numhoj = InputBox("¿Cuántas filas desea insertar?", "Insertar filas")

  If Not IsNumeric(numhoj) Then Exit Sub

  Range("a16").Resize(numhoj).EntireRow.Insert

End Sub[/CODE]

saludos,

hector.

Ya se realizaron los cambios, pero sigue sin funcionar. Anexo archivo espero me puedan ayudar.

Saludos

FORMATO.xls