ActiveSheet.Range("$O$4:$S$999").AutoFilter Field:=1, Criteria1:=Array( _
"BJM2 INDEX", "CFM2 INDEX", "ESM2 INDEX", "GXM2 INDEX", "JSM2 INDEX", _
"JYH2 COMB CURNCY", "KGM2 INDEX", "QBM2 INDEX", "QKM2 INDEX", "RHM2 INDEX", _
"SXM2 INDEX", "ULM2 INDEX", "VGM2 INDEX", "WQM2 INDEX", "Z M2 INDEX"), Operator:= _
xlFilterValues