Error 13 no coinciden los tipos

[roisso]

Hola !!

Soy nuevo en esto de las macros. El tema es que tengo que usar una macro para insertar filas dependiendo del valor de una celda. Tengo una lista de datos de 12000 filas así que he intentado hacerlo directamente seleccionando todos los valores a la vez, en lugar de ir uno por uno. Al activar la macro me sale el error 13 no coinciden los tipos.

el codigo de la macro es:

Sub Macro1()

Dim Filas As Single, MiRango As Object

Filas = Selection.Value2 - 1

Set MiRango = Range(Selection.Offset(1, 0), Selection.Offset(Filas, 0))

MiRango.EntireRow.Insert (xlShiftDown)

Selection.Offset(0, -10).Copy Destination:=MiRango.Offset(-Filas, -10)

Selection.Offset(0, -9).Copy Destination:=MiRango.Offset(-Filas, -9)

Selection.Offset(0, -8).Copy Destination:=MiRango.Offset(-Filas, -8)

Selection.Offset(0, -7).Copy Destination:=MiRango.Offset(-Filas, -7)

Selection.Offset(0, -6).Copy Destination:=MiRango.Offset(-Filas, -6)

Selection.Offset(0, -5).Copy Destination:=MiRango.Offset(-Filas, -5)

Selection.Offset(0, -4).Copy Destination:=MiRango.Offset(-Filas, -4)

Selection.Offset(0, -3).Copy Destination:=MiRango.Offset(-Filas, -3)

Selection.Offset(0, -2).Copy Destination:=MiRango.Offset(-Filas, -2)

Selection.Offset(0, -1).Copy Destination:=MiRango.Offset(-Filas, -1)

Selection.Value = 1

MiRango.Offset(-Filas, 0) = 1

Selection.Offset(0, 1).Copy Destination:=MiRango.Offset(-Filas, 1)

Selection.Offset(0, 2).Copy Destination:=MiRango.Offset(-Filas, 2)

Selection.Offset(0, 3).Copy Destination:=MiRango.Offset(-Filas, 3)

Selection.Offset(0, 4).Copy Destination:=MiRango.Offset(-Filas, 4)

Selection.Offset(0, 5).Copy Destination:=MiRango.Offset(-Filas, 5)

Selection.Offset(0, 6).Copy Destination:=MiRango.Offset(-Filas, 6)

Selection.Offset(0, 7).Copy Destination:=MiRango.Offset(-Filas, 7)

Selection.Offset(0, 8).Copy Destination:=MiRango.Offset(-Filas, 8)

Selection.Offset(0, 9).Copy Destination:=MiRango.Offset(-Filas, 9)

Selection.Offset(0, 10).Copy Destination:=MiRango.Offset(-Filas, 10)

Selection.Offset(0, 11).Copy Destination:=MiRango.Offset(-Filas, 11)

Selection.Offset(0, 12).Copy Destination:=MiRango.Offset(-Filas, 12)

If MiRango.Cells(1, 1).Value2 <> "" Then

Selection.End(xlDown).Select

Else

MiRango.Cells(1, 1).Select

End If

Set MiRango = Nothing

End Sub

[code]

el error aparece en "Filas = Selection.Value2 - 1" muchas gracias!

[Antoni]

Explica con detalle lo que pretendes hacer y sube una muestra del archivo.

Tu macro no se aguanta por ningún sitio.