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