Need to modify VBA code to move Entries between Worksheets based on Drop-down Entry

Another "newby" here. I found the following link that almost solves my problem:

http://www.excelforum.com/excel-prog...own-entry.html

This VBA code is simply to post one row from one spreadsheet to another. I copied the code to my file and it worked fine. But I need to modify the codes slightly to NOT copy the entire row, but simply selected cells within the row to the new spreadsheet.

In the attached file, the first "Expenses" sheet has the following columns: "Expenses", "Amount", "Company", "Address", "City / State / Zip", "Phone", and "First Call?" IF "First Call" = "Y" (drop-down), then only the following selected columns of the "Expenses" sheet should be copied to the appropriate columns of "Sheet2": "Expenses", "Company", "City / State / Zip", "Phone". Again, those selected columns are copied to the other sheet, and ONLY if the "First Call" = "Y". Here's the file:

Oh, absolutely beautiful!! Thank you SO very much!! And I will mark this thread as solved. (Oh, and, no, I did not want to delete the row from the original sheet.)