Ayuda en macro

Upssssssss creo que ese no era tu correo no me lo acepto
Si puedes dime donde puedo subir el archivo y no tengas necesidad de
registrarte

hola, Edixon !

Upssssssss creo que ese no era tu correo no me lo acepto ...

de la direccion que aparece... solo quita el "NO...SPAM...PLS"

saludos,
hector.

Hola Héctor

Ahora creo que si se envio, de antemano gracias por tanta paciencia

hola, Edixon !

Ahora creo que si se envio, de antemano gracias por tanta paciencia

el archivo llego SIN formulas (asumo que son "secretas") pero supongo que de todas formas no las quieres en la hoja de destino
tambien llego con un (severo) "abuso" con el uso de formatos distintos y de forma "indiscriminada" (1.5 Mb vs. 400 Kb "necesarios")
lo que le "estorba" a la macro de la popuesta anterior, es que la columna M NO ESTA VACIA (esta llena de ceros por "las formulas" ?)

prueba con la siguiente macro (te cambie los filtros avanzados por "simples" autofiltros) estimo que sea igual de "rapida"
estoy asumiendo que la columna H la vas a mantener en blanco (el codigo la usa pero la vuelve a dejar vacia)
puse dos variables de texto (hOrigen y hDestino) por si necesitas modificar el nombre de las hojas lo hagas en estas dos lineas

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub por_AutoFiltros()
Dim hOrigen As String, hDestino As String
hOrigen = "hoja1"
hDestino = "hoja2"
Worksheets(hDestino).Cells.Clear
With Worksheets(hOrigen).Range("a1")
.Range("h1") = "Puente"
.Range("h2").Resize(.CurrentRegion.Rows.Count - 1).Formula = _
"=match(9e+307,a$1:a2)=sumproduct(max(row(m$1:m2)*(m$1:m2>0)))"
.AutoFilter 8, True
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Destination:=Worksheets(hDestino).Range("a1")
.AutoFilter
.Parent.Columns("h").Clear
End With
With Worksheets(hDestino)
.Columns("f").Clear ' puedes cambiar .Clear por .Delete para eliminar la columna '
Debug.Print .UsedRange.Address
.UsedRange.Value = .UsedRange.Value
End With
End Sub

Gracias Héctor ahora si me funciono

Las formulas no eran secreta es queo me fije que no las habia copiado
en el archivo que te envie

A que te referieres con
con un (severo) "abuso" con el uso de formatos distintos y de forma
"indiscriminada" (1.5 Mb vs. 400 Kb "necesarios")

cuales son esos 1.5 mb? como puedo levarlos a 400 mb
Gracias y espero esta sea la última pregunta a esta entrada : )