I have the following VBA code that help me filter my data in the sheet.
With ActiveSheet.Range("A9") .AutoFilter Field:=3, Criteria1:="DIMM"