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

These macros should work together to accomplish that.

Option Explicit
Public wsCnt As Long

Sub CopySequential()

    If wsCnt = 0 Then SetCount
    If wsCnt = 50 Then MsgBox "No more" Else wsCnt = wsCnt + 1

    With Sheets("Calculations" & wsCnt)
        .Range("E29").Value = Sheets("DataEntry").Range("C22").Value
        .Range("G29").Value = Sheets("DataEntry").Range("E22").Value
        .Range("E33").Value = Sheets("DataEntry").Range("C25").Value
        .Range("G33").Value = Sheets("DataEntry").Range("E25").Value
        .Range("E31").Value = Sheets("DataEntry").Range("G24").Value
    End With

End Sub

Sub DeleteSequential()

    If wsCnt = 0 Then SetCount
    If wsCnt = 0 Then
        MsgBox "No data to delete"
    Else
        Sheets("Calculations" & wsCnt).Range("E29,G29,E33,G33,E31").Value = ""
        wsCnt = wsCnt - 1
    End If
    
End Sub

Sub SetCount()
Dim w As Long

    For w = 50 To 1 Step -1
        If Sheets("Calculations" & w).Range("E29") <> "" Then
            wsCnt = w
            Exit Sub
        End If
    Next w

End Sub