VB Code to Save file as 97-2003 Worksheet

Hello:

Please refer to attached sheet.
I am using below code to rearrange the Clockin-Clockout of employees.
I need to add the code which will Save and close the file in Microsoft Excel 97-2003 Worksheet in the same location as the original after rearranging is done.
Please let me know if any questions.
Thanks
Riz

Sub TimeReport_CSR()
' THIS MACRO IS CONTROL+SHIFT+R
  Dim C As Long
  Dim n As Long
  Dim r As Long
  Dim Rn As Long
  Dim TimeIn As Long
  Dim TimeOut As Long
  Dim Wks1 As Worksheet
  Dim Wks2 As Worksheet
  
 'Wks1 = the original data sheet
   With ActiveWorkbook
     Set Wks1 = .Worksheets(Worksheets.Count)
     .Worksheets.Add After:=Worksheets(.Worksheets.Count)
     Set Wks2 = ActiveSheet
     Wks1.Activate
   End With
   
   Rn = 2
   n = 2
  
 'Count the Rows with IDs
   Do
     If Wks1.Cells(n, "A").Value = 0 Then Exit Do
       n = n + 1
   Loop
  
 'Quit if there are no IDs
  If n = 2 Then Exit Sub
  
 'Set the header row for Sheet2
  With Wks2
    .Cells(1, 1).Value = "ID_CODE"
    .Cells(1, 2).Value = "IN"
    .Cells(1, 3).Value = "OUT"
  End With
  
 'Copy desired data to Sheet2
  For r = 2 To n - 1
    IdCode = Wks1.Cells(r, "A").Value
      For C = 5 To 14 Step 3
        TimeIn = Wks1.Cells(r, C).Value
        TimeOut = Wks1.Cells(r, C + 1).Value
          If TimeIn = -1 Or TimeOut = -1 Then Exit For
        With Wks2
          .Cells(Rn, "A") = IdCode
          .Cells(Rn, "B") = TimeIn
          .Cells(Rn, "C") = TimeOut
        End With
        Rn = Rn + 1
      Next C
  Next r
  
  'Sort list in ascending order by ID
 With Wks2
   .Range("A2:C" & Trim(str(Rn))).Sort Key1:=.Range("A2")
   End With

  
'Save the original data worksheet name
  TabName = Wks1.Name
  
'Delete the worksheet
  Application.DisplayAlerts = False
  Wks1.Delete
  Application.DisplayAlerts = True
  
'Rename the new sheet
  Wks2.Name = TabName
  
End Sub