Copy table to the first unused row on another sheet

Hi everyone,

I have zero experience with macros/vba and would like some help.

Details:

Sheet1 (Today's Queue) contains a table (Today) with an assortment of data that is pulled every morning, and then deleted at the end of the day. The data from this table feeds into graphs for daily emails. This data always contains the same amount of columns (A-G), but differs in the amount of rows each day.

Sheet2 (Queue History) contains the combined data from every morning pull, and is never deleted.

The goal is to have a macro that:
1) copies all the data from the Sheet1 "Today" table,
2) paste that data as values to the first unused row on the bottom of Sheet2 (this way no data from Sheet2 is deleted or overwritten), and
3) clear data from columns A - F in Sheet1 (Today's Queue).

Please note that some rows contain blank cells.

I have attached a sample workbook for your reference.

Thanks!

Originally Posted by Mumps1

Try:

Please Login or Register  to view this content.

Thanks Mumps1! This works great, however it deletes all of the data in Sheet1 besides the first row. How can I change this so it only deletes A2:F, and leaves the formula in column G?

Additionally, would there be a way for the macro to also add a column with the current date when it is pasting onto Sheet2?

I'm running into a problem where every other time the macro is run, the data is not pasted on the last unused row and instead pasted further down the sheet. I think the issue is that while cells in A:F may be emtpy, cells in column G will always have formula. Is there a way to make it so the macro only copies rows that have data in column A?

Thank you!!