Solved: podria ahorrar lineas de codigo??

hola tengo estas lineas:
mi pregunta es si las lineas en color rojo podria abreviarlas

[VBA]
Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=2, Criteria1:="="
Range("A5:K5000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B4").Select
End Sub
[/VBA]

hola y bienvenido a VBAX :hi:

Perdoname si mi espanol es malo... creo que entiendo que dice :think:

se puede utilizar un ciclo iterativo[VBA]Dim i As Long

For i = 1 To 8
Selection.AutoFilter Field:=i
Next i[/VBA]