Arciving Data from One Sheet to the next

[BusDriver2]

I am trying to write/modify an exsisting macro that will transfer data from the "My Data" page to the "Archive" page. I have searched other threads on the website and could not find one that really suited my needs.

Sub XferData()
Dim sht As Worksheet, outsht As Worksheet, r As Long
Set outsht = Sheets("Archive")
If ActiveSheet.Name = outsht.Name Then
MsgBox "You must activate this macro from data sheet"
Exit Sub
End If
Set sht = ActiveSheet
r = outsht.Range("A" & Rows.Count).End(xlUp).Row + 1
End Sub

Here is the question: I have daily data (A2:G13) that is always changing but but never goes beyond G13. I would like the macro to send the values in the range A2:G13 to the "Archive" Page. The attached sheet may give a better graphic of my question.

But each time I press the archive button the macro adds the new days data to the running tally. Then at the end of a week or a quarter or the year I can use a pivot table to look at the collected data set.

Any help with this would be great. Thanks.

BusDriver2