Below is the code which is working fine. I have add two more criteria for example "RENK" and "AKOBO" to be filtered from Sheet("MAIN RECORD") and paste in the "MALAKAL" Sheet, next row of the existing data.


Sheets("MAIN RECORD").Select
Range("C1").Select
ActiveSheet.Range("$A$1:$H$3000").AutoFilter Field:=3
ActiveSheet.Range("$A$1:$H$3000").AutoFilter Field:=3, Criteria1:= _
"=*MALAKAL*", Operator:=xlOr, Criteria2:="=*BUNJ*"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Selection.Columns.AutoFit
ActiveSheet.Name = "MALAKAL"
Range("A1").Select