VBA code for 2 buttons that can clear cells in a row then second button to bring data back

.
I believe this is what you were seeking :

Option Explicit

Sub cpyPaste()
    
Dim ws As Worksheet
Dim cell As Variant
Dim LastRow As Long

Set ws = Sheets("Sheet2")
   
LastRow = ws.Cells(Rows.Count, 5).End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    Sheets("Sheet1").Range("D5:L5").Copy
    ws.Activate
    ws.Cells(LastRow + 1, 4).Select
    ws.Paste
    Sheet1.Rows(5).Delete
    Sheets("Sheet1").Activate
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

Sub renew()
Dim ws As Worksheet
Dim cell As Variant
Dim LastRow As Long

Set ws = Sheets("Sheet2")
   
LastRow = ws.Cells(Rows.Count, 5).End(xlUp).Row

Application.ScreenUpdating = False

If ws.Cells(LastRow, 5).Value = "" Then
    MsgBox "All data retrieved.", vbInformation, "Data Retrieval"
    Exit Sub
End If

    Application.ScreenUpdating = False
    ws.Cells(LastRow, 5).EntireRow.Copy
    Sheets("Sheet1").Rows(5).Insert
    ws.Cells(LastRow, 5).EntireRow.Delete
    Application.CutCopyMode = False
    
    ws.Activate
    ws.Range("A1").Select
    Sheet1.Activate
    
Application.ScreenUpdating = True

End Sub

Sub usdRng()
Dim LastRow As Long
Dim ws As Worksheet

Set ws = Sheets("Sheet2")

LastRow = ws.Cells(Rows.Count, 5).End(xlUp).Row

Application.ScreenUpdating = False

If ws.Cells(LastRow, 5).Value = "" Then
    MsgBox "All data retrieved.", vbInformation, "Data Retrieval"
    Exit Sub
End If

    Worksheets("Sheet2").Activate
    ActiveSheet.UsedRange.Copy

    Sheets("Sheet1").Select
    Sheets("Sheet1").Range("D5").Insert shift:=xlShiftDown
    
    Worksheets("Sheet2").Cells.Delete
    Application.CutCopyMode = False
    
    ws.Activate
    ws.Range("A1").Select
    Sheet1.Activate
    
Application.ScreenUpdating = True

End Sub