something wrong either with the site uploading service or Excel converter. Anyway the code that was changed is Entry Page code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim CLsearch As Range

If Not Intersect(Target, Range("c2")) Is Nothing Then
    
    With Application
        
        .ScreenUpdating = 0
        .EnableEvents = 0
        
        Range("c3:c25").ClearContents
        
        Set CLsearch = Sheets("Current List").UsedRange.Find(Target, , xlValues, xlWhole, , xlNext)
    
        If Not CLsearch Is Nothing Then
            
            CLsearch.Resize(, 24).Copy
           
            Range("c2").PasteSpecial Paste:=xlPasteAll, Transpose:=True
                  
        End If
        
        Range("c2").Select
                
        .EnableEvents = 1
        .ScreenUpdating = 1
        
    End With
    
End If

End Sub