en vba repetir varias veces advancedfilter

hola, Diana !

La fila A3 contiene los nombres de campos de las columnas.
Como modificarias este codigo para que en la nueva lista aparezcan los
titulos solo con el primer filtro
y cuando filtra por los siguientes criterios no repita los encabezados
sino solo los datos?...

los filtros avanzados al copiar a otro lugar incluyen los titulos (por
cada vez), asi que...
el siguiente codigo elimina la fila de los copiados a partir de la segunda
vez que se filtra
(la primera vez se quedan los titulos a partir de la fila 2 o la siguiente
que este libre) -?-

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

Dim Criterios, n As Byte, Fx As Integer
Criterios = Array("a1:a2", "b1:b2", "c1:c2", "d1:d2")
With Worksheets("consolidado").Range("a3:j17520")
For n = LBound(Criterios) To UBound(Criterios)
.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("hoja1").Range(Criterios(n)), _

CopyToRange:=Worksheets("nuevalista").Range("a65536").End(xlUp).Offset(1),
_
Unique:=False
If n > LBound(Criterios) Then Worksheets("nuevalista").Range("a" & Fx
+ 1).EntireRow.Delete
With Worksheets("nuevalista")
Fx = .Cells.Find("*", .Range("a1"), xlValues, xlWhole, xlByRows,
xlPrevious).Row
End With
Next
End With