Need help! constr a macro that copies data and pastes in multiple new range in WB

[estatefinds]

So I have data that is in the range M2 to T71 and want to be able to use a macro that copies this data and places in a range that I type in for example AE2 to AL71. or if possible 16 different ranges in total.

I tried one macro but it didnt work cause it was mismatch do to being on same work book.

the code I used looked like this

Sub Copy Data()
Application.ScreenUpdating = False
Worksheet(sheet1) . Range("M2:T7110").Value = Worksheets(sheet1). Rnage("AE2:AL71").Value
Application.ScreenUpdating = True
End Sub

Thank you in advance for your help!