Look through Sheets for specific values if found then copy and paste in another sheet

Hello.
Try with:

Sub Filter()
Dim ws As Worksheet, i%, C As Range, D As Range, E As Range
Application.ScreenUpdating = False
Set ws = Worksheets.Add(before:=Worksheets(1))
For i = 2 To Worksheets.Count
  With Worksheets(i)
    Set C = .Columns("A").Find(What:="Day", LookAt:=xlWhole, SearchDirection:=xlNext)
    Set D = .Cells(Rows.Count, "A").End(xlUp)(1, 4)
    Set E = ws.Cells(Rows.Count, "A").End(xlUp)(2)
    E = C.Value: E(2) = "'08": E(3) = "'09"
    .Range(C, D).AdvancedFilter 2, E.Resize(3), E(4), False
    E.Resize(3 - CInt(E.Row <> 2)).EntireRow.Delete
  End With
Next
Application.ScreenUpdating = True
End Sub

Thank you this is exactly what I'm looking for, if I wanted to search for more values how exactly should I edit the code?