Extract data from logs and put on a Sheet(Column A and B) since other column already have formula

Apologies Im still noob in vba coding. Seeking help to improve vba code to extract data from large number of logs and put it on a existing worksheet

Sub Extract_Data()

   Dim MyObj As Object, MySource As Object, file As Variant
   Dim R1 As Range, xCel As Range
   Dim Checking As Boolean
   Dim Rng As Range
   
   Set MySource = MyObj.GetFolder("D:Log_Files_Folder")
   
   
   Checking = False
   For Each file In MySource.Files
      If InStr(1, file.Value, "Start") <> 0 Then
         Checking = True
         
      End If
      
      If Checking = True And InStr(1, file.Value, "Correct") <> 0 Then
         xCel.Offset(0, 3).Value = xCel.Value
        
        
      End If
      
      If Checking = True And InStr(1, file.Value, "Correct") <> 0 Then
        xCel.Offset(0, 2).Value = xCel.Offset(0, -1).Value
      
      End If
        
                  
      If InStr(1, xCel.Value, "End") <> 0 Then
         Checking = False
      End If
      
   Next xCel

Set Rng = Range("B:B")
Application.ScreenUpdating = False
With Rng
    .Value = Evaluate(Replace("If(@="""","""",Trim(@))", "@", .Address))
End With
Application.ScreenUpdating = True

    
End Sub

Logs Sample

Expected Result Sample