Macro to copy/paste info in different sheets and to delete last entry

Hello, I need a macro that will do the following:

Copy from Sheet "DataEntry" C22 and paste it in Sheet "Calculations1" (E29)
Copy from Sheet "DataEntry" E22 and paste it in Sheet "Calculations1" (G29)
Copy from Sheet "DataEntry" C25 and paste it in Sheet "Calculations1" (E33)
Copy from Sheet "DataEntry" E25 and paste it in Sheet "Calculations1" (G33)
Copy from Sheet "DataEntry" G24 and paste it in Sheet "Calculations1" (E31)

Every time the macro is executed I will do the same operation but to the next sheet called: "Calculations2", then "Calculations3"...and like that until "Calculations50" once it reaches Calculations50, if the macro is executed again it will display a window message like: "You can't enter more data"

Also I will need a macro to delete the last entry of the previous macro, so that every time you execute it it will delete the last entry...and you can do it as many times as you want until you've deleted all of them.

Thank you!