Tengo una macros para insertar fila que me da error
Hola expertos,
tengo una macro que encontré en otros enlaces, sucede que es lo que perfectamente deseo, inserta filas y copiando las formulas de la fila que le antecede, más sucede que cuando la ejecuto, me da un error "Error 400", cuando le doy aceptar si se insertan las filas con todo y fórmula pero la celda anterior se queda seleccionada.
que necesito agregar o quitar para que ya no salga el mensaje de error 400 y se "des-eleccione las filas copiadas"
gracias,
macros:
Sub Test()
numhoj = InputBox("¿Cuántas filas desea insertar? Escriba un número menos de la cantidad de autos a dar de alta", "Insertar filas")
If Not IsNumeric(numhoj) Then Exit Sub
Rows("11:11").Copy
Rows("12:" & 11 + numhoj).Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=x1PasteFormulates
Application.CutCopyMode = False
End Sub
---------
Sub Test2()
numhoj = InputBox("¿Cuántas filas desea eliminar? Utilizar SOLO EN CASO de haberse equivocado en el número de celdas insertadas anteriormente y ANTES DE LLENAR LA TABLA DE ABAJO.", "Eliminar filas")
If Not IsNumeric(numhoj) Then Exit Sub
Rows("12:" & 11 + numhoj).Select
Selection.Delete Shift:=xlDown
Application.CutCopyMode = False
End Sub