Visual Basic - crear bucle for next

hola buenas tardes

esperando alguien pueda apoyarme con este problema
necesito aplicar un ciclo for next a 3 lineas de codigo que hacen lo mismo solo cambia el criterio

Range("F2").AutoFilter Field:=6, Criteria1:="*AB TRANS ELECT*"

Range("F2").AutoFilter Field:=6, Criteria1:="*DEP EN ATM*"

Range("F2").AutoFilter Field:=6, Criteria1:="*DEP EN EFECTIV*"

esta son las lineas de codigo
hacen lo mismo solo que en cada una de ellas cambia el criterio

esperando puedan apoyarme muchas gracias

pero para que necesitas el ciclo? cuando se aplica cuando empieza cuando termina???? no es clara tu necesidad y por que haces esos filtros asi.

hola buenas tardes Andres
grcias por contestar

AB TRANS ELECT necesito filtrar digamos que este tipo de pagos entre barios que ay pero solo necesito los tres que comente en las lineas de codigo
solo que utilice la funcion para quitar espacios y la función remplazo pero no me quita los espacios que quiero ya que al final trae dos o tres espacios en blanco y solo lo que e conseguido es que me quite los espacios de entre las palabras

El proceso va en la columna F y entonces estas lineas que estoy utilizando solo es para detectar el nombre y filtrar los tres tipos de pagos de entre mas de diez

No te entiendo bien tu pregunta pero puedes intentar esto:

Range("F2").AutoFilter Field:=6, Criteria1:="*AB*TRANS*ELECT*"

Range("F2").AutoFilter Field:=6, Criteria1:="*DEP*EN*ATM*"

Range("F2").AutoFilter Field:=6, Criteria1:="*DEP*EN*EFECTIV*"

suerte haber si es lo que nesecitas.