Det skulle underlätta om du skickade med koden i ett inlägg.

I princip så ska det räcka med:

Range("A2:G100").Autofilter Field:=1
Range("A2:G100").Autofilter Field:=2
Range("A2:G100").Autofilter Field:=3
...

Eller i en loop:

Dim i As Integer
For i = 1 To 10
    Range("A2:G100").Autofilter Field:=i
Next i

För att stänga av autofilter. Observera att "A2:G100" förmodligen måste bytas ut. En enkel lösning är att ange en cell i rubriken (säg "A2"), och använda "CurrentRegion":

Dim i As Integer
For i = 1 To 10
    Range("A2").CurrentRegion.Autofilter Field:=i
Next i

Man får exprimentera lite med det, för att se vad som passar bäst i det enskilda fallet.

När jag testar detta får jag inga körfel när den är i normalläge. Men som sagt; visa lite kod, så är det enklare att konstatera vad som blir fel.