Move Data in Cells based on another cell contents

I am withdrawing my request for help from this board. I cannot delete the post so I am changing the text. Amin. Please delete this thread as I am unable to do so. Thank you.

MOD EDIT: No - we don't remove threads that have responses and you should not post-edit your posts in this way. This is a public forum and information should remain here for the benefit of all, not removed. Please don't do this again - we see it as thread vandalism.

Original request:

I have a reservations spreadsheet that I need to transfer data to to another worksheet if a cell is not empty, when an ActiveX button is clicked.

I need the following to happen when I press the button:

In Spreadsheet 1 If a cell in I3-I39 is not empty Transfer (append) Data in Cells D, E, F, and G in that row to Columns B, C, D, and E respectively in Spreadsheet 2 then place today's date in column A of spreadsheet 2. Then Delete the data in Spreadsheet 1 Column I ONLY.

In Spreadsheet 1 If a cell in S3-S39 is not empty Transfer (append) Data in Cells N, O, P, and Q in that row to Columns B, C, D, and E respectively in Spreadsheet 2 then place today's date in column A of spreadsheet 2.Then Delete the data in Spreadsheet 1 Column S ONLY.

Thank you in advance!