VBA apply autofiler with color

Cells.Select
With ActiveSheet
.AutoFilterMode = False
.Range("a:k").AutoFilter
.Range("A:k").AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor


End With
Range("a1").Select