Sub FormatDriverSurvey()
 Range("A:A,Y:Y,Z:Z,X:X").Select
    Range("X1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "Overall"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "Safety Procedures"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "Check In/Out"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "Personnel"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "Amenities"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "Timely Loading / Unloading"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "Feedback"
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "STOPID"
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "ADDRESS"
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "CITY"
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "STATE"
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "ZIP"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "OU"
    Columns("N:N").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "STOP DATE"
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "STOP NAME"
    Columns("P:Q").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("P1").Select
    ActiveCell.FormulaR1C1 = "MONTH"
    Range("Q1").Select
    ActiveCell.FormulaR1C1 = "YEAR"
    Cells.Select
    Cells.EntireColumn.AutoFit
    Cells.Select
    Selection.ColumnWidth = 24.71
    Cells.Select
    Cells.EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    Selection.ColumnWidth = 254.86
    Columns("H:H").Select
    Columns("G:G").ColumnWidth = 73
    Columns("G:G").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    ActiveWindow.SmallScroll ToRight:=2
    Columns("C:C").EntireColumn.AutoFit
    ActiveWindow.SmallScroll ToRight:=1
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    ActiveWindow.SmallScroll ToRight:=4
    Columns("H:H").EntireColumn.AutoFit
    ActiveWindow.SmallScroll ToRight:=-2
    Columns("F:F").EntireColumn.AutoFit
        Columns("H:H").EntireColumn.AutoFit
            Columns("I:I").EntireColumn.AutoFit
                Columns("J:J").EntireColumn.AutoFit
                    Columns("K:K").EntireColumn.AutoFit
                        Columns("L:L").EntireColumn.AutoFit
                            Columns("M:M").EntireColumn.AutoFit
                                Columns("N:N").EntireColumn.AutoFit
                                    Columns("O:O").EntireColumn.AutoFit
                                    Columns("P:P").EntireColumn.AutoFit
                                        Columns("Q:Q").EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Cells.Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    

    Range("A1").Select
       
End Sub