Arciving Data from One Sheet to the next

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

Try thgis

Sub XferData()
    Dim sht    As Worksheet
    Dim outsht As Worksheet
    Dim rng    As Range
    Dim r      As Long
    Set outsht = ThisWorkbook.Sheets("Archive")
    Set rng = Sheet1.Range(Cells(1, 1), Cells(Rows.Count, 7).End(xlUp))
    r = outsht.Cells(Rows.Count, 1).End(xlUp).Row + 1
    rng.Copy outsht.Cells(r, 1)
End Sub