I don't think you have uploaded correctly, however try this
Sub Replace_View_Requested_Sheet()
'
' Replace_View_Requested_Sheet Macro
'
    Dim strSheetName As String

    Sheets("View Requested Format").Copy Before:=Sheets(4)
    strSheetName = ActiveSheet.Name
    
    Application.DisplayAlerts = False
    Sheets("View Requested").Delete
    Application.DisplayAlerts = True

    Sheets(strSheetName).Name = "View Requested"
    Range("A1").Select
End Sub
I haven't studied your workbook in detail, but see if that works for you first.