Duda con autofiltro en VBA

hola, Antonio !

... estoy realizando un autofiltro por Codigo para lo que hago
With Sheets("INCIDENCIAS")
.Columns("N:N").AutoFilter
.Columns("N:N").AutoFilter Field:=1, Criteria1:=iProvincia (aqui es donde esta el criterio)
End With
Funciona bien, pero ahora quiero borrar el resultante del autofiltro
es decir si hay dos filas que las borre, pero no consigo realizarlo
mirando la ayuda he visto Delete Shift:=xlUp pero no me funciona..

prueba con algo +/- como lo siguiente (OJO: suponiendo que los datos/titulos inician desde la fila1): -???-

With Worksheets("incidencias")
If AutoFilterMode Then .AutoFilter
.Range("n1").AutoFilter Field:=1, Criteria1:=1
.Range(.Range("n2"), .Range("n65536").End(xlUp)) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Range("n1").AutoFilter
End With

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

Muchas gracias Hector Miguel, sencillamente genial.

Un saludo

"Héctor Miguel" wrote:

hola, Antonio !

> ... estoy realizando un autofiltro por Codigo para lo que hago
> With Sheets("INCIDENCIAS")
> .Columns("N:N").AutoFilter
> .Columns("N:N").AutoFilter Field:=1, Criteria1:=iProvincia (aqui es donde esta el criterio)
> End With
> Funciona bien, pero ahora quiero borrar el resultante del autofiltro
> es decir si hay dos filas que las borre, pero no consigo realizarlo
> mirando la ayuda he visto Delete Shift:=xlUp pero no me funciona..

prueba con algo +/- como lo siguiente (OJO: suponiendo que los datos/titulos inician desde la fila1): -???-

With Worksheets("incidencias")
If AutoFilterMode Then .AutoFilter
.Range("n1").AutoFilter Field:=1, Criteria1:=1
.Range(.Range("n2"), .Range("n65536").End(xlUp)) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Range("n1").AutoFilter
End With

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