' clear the target sheet
Sheets("Target Sheet").Select
Cells.Select
Selection.ClearContents
Range("A1").Select

' go to source sheet
Sheets("Source Sheet").Select

' filter as needed
ActiveSheet.Range("$A$1:$O$500").AutoFilter Field:=4, Criteria1:="=100", _
    Operator:=xlOr, Criteria2:="=200"

' copy filtered rows to target
Cells.Select
Selection.Copy
Sheets("Target Sheet").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Source Sheet").Select
Application.CutCopyMode = False
Range("A1").Select
ActiveSheet.Range("$A$1:$O$500").AutoFilter Field:=4