Sub DS()

    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
    Cells(1, 1).Activate
End Sub