How Can I Repair Excel Corrupted File

I tried to get the data from your corrupted file by writing the below VBA code and I ended up with the attached result

Sub GetDataFromCorruptedWorkbook()
Dim Ws As Worksheet

Application.ScreenUpdating = False

With GetObject("D:\Another New Temp\new\Contractor Diesel Statment.xls")
    For Each Ws In .Sheets
        ThisWorkbook.Sheets.Add Sheets(Sheets.Count)
        ActiveSheet.Name = Ws.Name
        Ws.Cells.Copy ActiveSheet.Range("A1")
    Next Ws
    .Close
End With

Application.ScreenUpdating = True

End Sub

In the above code change this D:\Another New Temp\new to your file path