Hello

I'm an event manager and am setting up a database to record the event details, including 'status: namely, whether an event's booking status is 'Enquiry' or 'Provisional' or 'Confirmed'. I want to move the 'Provisional' and 'Confirmed' records to a new sheet (don't want to use filters in sheet 1, as others will use this database and I will only give them access to the sheet 2).

I'm new to VBA, so am searching for some code that might help. Assume at this stage, there are just three columns: Status, Event Type, Event Date. I have found the following code and tested this to see that it works, which it does:


Sub SelectAndMoveData()
'
' SelectandMoveData Macro
'
' Keyboard Shortcut: Ctrl+q
'

Columns("A:C").Select
Selection.AutoFilter
Range("C1").Select
ActiveSheet.Range("$A$1:$C$10000").AutoFilter Field:=1, Criteria1:="Provisional"
Range("A1:C1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
ActiveSheet.Previous.Select
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select

End Sub



I've found many examples such as this which allow just ONE criteria to be met. However, I'm trying to adjust it to make it work for MORE THAN ONE criteria, which would select the row whether 'Provisional' OR 'Confirmed'. Sadly, I'm floundering to get the syntax right!

Any suggestions, please, for an elegant solution?

Many thanks
Terri H