macro to copy and paste from one tab to another

[xxsalahxx]

Hello
Im trying to create a macro to copy and paste all rows of data from sheet1 to sheet2
My data starts at cell A5 to approx Z5000.
Has anyone here any ideas for a macro?
Im a novice to macros really so any help is very much appreciated
Thanking you in advance

 

[Clarkwr3]

Sub Copy_Data()
'
'
    Dim Sht1 As Worksheet
    Dim Sht2 As Worksheet
    Dim CpyRng As Range
    Dim L As Long
'
        Set Sht1 = ActiveWorkbook.Sheets("Sheet1")
        Set Sht2 = ActiveWorkbook.Sheets("Sheet2")
        L = Sht1.Cells(Rows.Count, 1).End(xlUp).Row
        Set CpyRng = Sht1.Range("A2:Z" & L)
'
    CpyRng.Copy
    Sht2.Range("A1").PasteSpecial
    Application.CutCopyMode = False
'
'
End Sub

 

[xxsalahxx]

Thank you
I have tried to amend this as I renames my tabs on sheet
Sheet 1: RAW DATA 2MTHS (l)
Sheet 2: 1.1(L)
but i cant seem to get it to work any ideas where i am going wrong?

Data starts at cell A5 and has to copy over into cell A5.

Thank you