Sub TIMKIEM()
' TIMKIEM Macro
Selection.AutoFilter
Range("C12").Select
ActiveSheet.Range("$A$12:$G$2357").AutoFilter Field:=2, Criteria1:=Array(PK36.Cells(2, 2).Value, PK36.Cells(3, 2).Value, PK36.Cells(4, 2), PK36.Cells(5, 2).Value, PK36.Cells(6, 2).Value, PK36.Cells(7, 2).Value...