Macro que filtre determinada categoría de una tabla

Cerrado
delaro5a
Message postés
1
Date d'inscription
domingo, 20 de noviembre de 2016
Estatus
Miembro
Última intervención
domingo, 20 de noviembre de 2016
- 20 nov 2016 a las 07:32
Hola,

Tengo esta macro

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$2:$H$10000"), , xlYes).Name = _
"Table9"
Range("Table9#All").Select
ActiveSheet.ListObjects("Table9").TableStyle = "TableStyleLight2"
ActiveSheet.ListObjects("Table9").Range.AutoFilter Field:=2, Criteria1:= _
"Dispatched"
Columns("E:E").Select
Selection.delete Shift:=xlToLeft
Columns("D:D").Select
Selection.TextToColumns Destination:=Range( _
"Table9[#Headers,[ETA Set For Date]]"), DataType:=xlFixedWidth, FieldInfo _
:=Array(0, 3), TrailingMinusNumbers:=True
ActiveSheet.ListObjects("Table9").Range.AutoFilter Field:=6, Criteria1:= _
"<>"
Range("B2:G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("ETA missed").Select
Selection.End(xlDown).Select
Range("A108").Select
ActiveSheet.paste

La cuestión es que quiero que filtre resultados con la palabra "dispatched" pero lo que hace es filtrar de acuerdo a la palabra que esté en la posición (en lista del filtro) donde está "dispatched" (en este caso, "field=2") y no a la palabra como tal. Dependiendo el día, "dispatched" varía su lugar en la lista del filtro y ahí radica mi problema. Lo mismo con otra columna que solo quiero que me quite las que estén en blanco pero de nuevo, guarda la posición (field=6) y no el concepto (BLANK o <>)
Por último, quiero pegar este resultado en otra tabla en otra hoja pero hasta el final de la tabla pues este es un acumulado. La macro guarda el número de la celda y no el hecho de que sea la últma

Gracias por el apoyo