Copy Entire Row To New Sheet If Column Data Is Matched

i need a macro that will allow an entire row from one sheet be copied into a new sheet.

so basically here is what needs to be done:

1. from my active sheet, look in Column 'D', select all rows in in column D if it has the word "Confirmed" in it

2. create a new sheet and paste all those selected rows to this sheet

3. delete this transfered data from sheet 1

4. in the new sheet, i need to add in titles as follows in columns A - O:

Ticket
OrgCode
Event
Event Status
Project Type
Project Status
Start Date
End Date,.....................