Copying row of data to new sheets if specific value exists in column

Hello,
I have this macro that was created for me already that works perfect for what I originally asked. I did edit it from the original code given to me to make it run when opening the workbook and also changed columns being used and sheets names. I thought I'd be able to figure out how to add to it but being extremely new to VBA codes, I was unable to :-(. I'm hoping someone can help me!

Currently, the macro looks for the words "Not Sent" in column I and if it exists, copies that row to the "Not Sent" sheet in the workbook. I would also like it to search for:
"Potential" in the same column and move to "Potential" sheet
"Pending" and copy to "Pending" sheet
"Project - T&M" or "Project - Contract" and copy to "Projects" sheet
or if a date is entered in that column, copy to the "Complete" sheet

Here is the existing macro I am using:

Please Login or Register  to view this content.

Thank you!!!