Use autofilter on more than 2 criteria

Use this one instead:

.AutoFilter Field:=1, Criteria1:=Array("HP Compaq 6000", "HP Compaq 8000", _
                                    "HP Compaq 8200", "HP Compaq 8200 Elite", _
                                    "HP Compaq dc5800", "HP Compaq dc7900", _
                                    "HP Compaq Elite 8300 SFF", "HP Compaq Pro 8300 SFF"), _
                    Operator:=xlFilterValues