Error cuando uso SpecialCells of AutoFilter para obtener celdas visibles en VBA

Mi objetivo principal es copiar las celdas visibles de un autofiltro y luego copiar las dimensiones de las celdas visibles a la nueva hoja. Estoy usando este código:

<code>Sheets(1).AutoFilterMode = False
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervalo, criteria1:=CDec(paramCantidadCriterio)
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervaloUnidades, Criteria1:=paramUnidadesCriterio

MsgBox AutoFilter.Range.SpecialCells(xlCellTypeVisible)(2, 11).Value
</code>

Con la última línea quiero comprobar el valor de una celda. Si yo usoCells(2,11) en lugar deSpecialCells Puedo ver que las celdas tienen todas las celdas de la hoja, visibles y no visibles. Así que quiero usarSpecialCells.

Si uso celdas especiales obtengo el siguiente error:

error '-2147417848 (80010108) in runtime. Automatization error.

Por el momento y el tipo de ejecución, parece que se ingresa en un bucle, y finalmente da este error. ¿Es posible que SpecialCells modifique el autofiltro y luego en cada modificación vuelva a ejecutar el autofiltro?

Respuestas a la pregunta(1)

Su respuesta a la pregunta