Macro filtros avanzados

Hola buenas tardes necesito ayuda con una macro, no se mucho de macros pero se mas o menos para que sirven pero tengo una duda y espero puedan ayudarme:

Tengo una macro con filtros avanzados de la cual necesito que se ejecute al rededor de 1200 veces ya que es para cada clave de producto la macro es esta

Sheets("almacen5").Select
Range("c25:g800").Clear
Range("j25:l800").Clear

Sheets("HOJA2").Range("A1:f10000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("BUSCADO"), CopyToRange:=Range("C24:G24" _
), Unique:=False
Range("I4").Select
Sheets("Salidas BASE").Range("Tabla_almacen3[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("BUSCADO"), CopyToRange:=Range( _
"j24:l24"), Unique:=False

Como podran darse cuenta fue una macro grabada y despues editada, el problema como menciono es que se debe ejecutar muchas veces por que tengo una cedula para cada producto, alguien podria ayudarme para que esta macro se repitiera muchas veces con celdas de "rangos d0e criterio" y "copiar a" con diferentes celdas.

Muchas gracias de antemano por sus aportaciones.