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 50
        If Cells(1, x) = "Item ID" Or Cells(1, x) = "User ID" Then
            barcodeColumn = Chr(x + 64)
            Columns(barcodeColumn & ":" & barcodeColumn).Select
            Selection.NumberFormat = "0"
            'Selection.Deselect
        End If
    
        If InStr(Cells(1, x), "Date") Or InStr(Cells(1, x), "Library") Then
            barcodeColumn = Chr(x + 64)
            Columns(barcodeColumn & ":" & barcodeColumn).EntireColumn.AutoFit
        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"
            'Selection.Deselect
        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) = "Checkouts"
    Next
        
    Rows("1:1").EntireRow.AutoFit
    Columns("B:Z").EntireColumn.AutoFit
    Columns("A:A").EntireColumn.ColumnWidth = 9
    Cells(1, 1).Activate
End Sub