Ofimática - Instrucción para eliminar rango filtrado en excell

Necesito que me orientes acerca de la instrucción que debo utilizar en el código de la macro para eliminar un rango filtrado con ciertas condiciones.

Empecé con la grabadora, y efectivamente elimina un rango pero al volver a correr la instrucción sigue (obvio) eliminando el rango que quedó fijo en el código.

A continuación el codigo:



Sub filtros()
'
' filtros Macro
' Aquí filtro lo que quiero eliminar:

'1.- Filtra los Activos y el primer criterio de depuración.

Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=">=281", Operator:=xlAnd
Selection.AutoFilter Field:=1, Criteria1:="=#N/A", Operator:=xlAnd
Selection.AutoFilter Field:=2, Criteria1:="=#N/A", Operator:=xlAnd
Selection.AutoFilter Field:=3, Criteria1:="=#N/A", Operator:=xlAnd

End Sub

Sub Primercriteriodedepuracion()
'Primer criterio de depuracion
' Primer criterio de depuracion Macro

' En la sig. instrucción quedó fijo el rango filtrado en la macro anterior que inicia en el renglón 6941. El volver a utilizar la macro ésta ya no me sirve puesto que el rango a eliminar cambia, no es fijo.


Rows("6941:6941").Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub



Espero sus comentarios.

eliminar filtrar