Sub DS()

    Dim x As Integer
    
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Rows("1:1").Select
    Selection.Font.Bold = True
    
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
    
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
        
    For x = 1 To 20
        If Cells(1, x) = "Item ID" Or Cells(1, x) = "User ID" Then
            barcodeColumn = Chr(x + 64)
            Columns(barcodeColumn & ":" & barcodeColumn).Select
            Selection.NumberFormat = "0"
        End If
            
        If InStr(Cells(1, x), "Title") Then
            Columns(x).Select
            Selection.NumberFormat = "@"
        End If
        
        If InStr(Cells(1, x), "Price") Or InStr(Cells(1, x), "Fine") Then
            barcodeColumn = Chr(x + 64)
            Columns(barcodeColumn & ":" & barcodeColumn).Select
            Selection.NumberFormat = "$0.00"
        End If
        
        If InStr(Cells(1, x), "Year Published") Then Cells(1, x) = "Year"
        If InStr(Cells(1, x), "Total Checkouts") Then Cells(1, x) = "Check- outs"
    Next
            
    Cells.Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROW(),2)=0"
    Selection.FormatConditions(1).Interior.Color = RGB(240, 240, 240)
        'comment out above line if you don't want to shade rows
    Selection.FormatConditions(1).StopIfTrue = False
    
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
        .FreezePanes = True
    End With

    Rows("1:1").EntireRow.AutoFit
    Columns("A:Z").EntireColumn.AutoFit
    
    'clean up diacritics
    Call fixDiacritics("í", "L")
    Call fixDiacritics("â–", "l")
    Call fixDiacritics("µ", "")
    Call fixDiacritics("Γ", "")
    Call fixDiacritics("ß", "")
    Call fixDiacritics("Ï„", "")
    Call fixDiacritics("σ", "")
    Call fixDiacritics("Φ", "")
    Call fixDiacritics("÷", "")
    Call fixDiacritics("Ï€", "")
    Call fixDiacritics("«", "")
    Call fixDiacritics("≡", "")
    Call fixDiacritics("Θ", "")
    Call fixDiacritics("δ", "")
    Call fixDiacritics("âˆ", "")
    
   
    Cells(2, 1).Activate
End Sub

Sub fixDiacritics(ByVal str1 As String, ByVal str2 As String)

        Cells.Replace What:=str1, Replacement:=str2, LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    
End Sub